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2MHZ 6809 SYSTEMS 

GIMIX offers you a variety to choose from! 
38 MB WINCHESTER SYSTEIVl $17,498.99 

HARDWARE FEATURES: 

*2MHz 6809 CPU • 

* 512KB Static RAM • 




* 8 RS232C Serial Ports 

* 2 Parallel Ports 
SOFTWARE FEATURES: 

* OS-9 LEVEL TWO Multi-User 
Operating System 

* OS-9 Debugger 



DMA Double Density Floppy Disk Controller 
Dual 8" DSDD Floppy Disk System 
Dual Winchester Subsystem with 
Two19 MB 5V4" Winchester Drives 



• OS-9 Text Editor 

* OS-9 Assembler 



19 MB WINCHESTER SYSTEM $8998.09 



4 RS232C Serial Ports 

1 MB 5V4" Floppy Disk Drive 

DMA Double Density Floppy Disk Controller 

OS-9 Debugger 
OS-9 Assembler 



HARDWARE FEATURES: 

• 128K Static Ram • 
-^ 2MHz 6809 CPU -k 
ir 19 MB 5V4" Winchester DMA Subsystem • 

SOFTWARE FEATURES: 

-k OS-9 LEVEL TWO Multi-User • 

Operating System • 

• OS-9 Text Editor 

128KB MULTI-USER SYSTEM $6997.39 

HARDWARE FEATURES: 

• 2MHz 6809 CPU * 2 RS232C Serial Ports 

• DMA Double Density Floppy Disk Controller * Dual 8" DSDD Floppy Disk System 

• 128KB Static Ram 

SOFTWARE FEATURES: Your choice of either UniFLEX or OS-9 LEVEL TWO. Both are Unix-like 
Multi-User/Multi-Tasking Operating Systems. 

56KB FLEX/OS-9 "SWITCHING" SYSTEM $4148.49 

HARDWARE FEATURES: 

• 2MHz 6809 CPU * DMA Double Density Floppy Disk Controller 

• 56K Static Ram • 2 Built-in 5Va" 40tr DSDD Disk Drives 

• 2 RS232C Serial Ports (80 Track DSDD Drive Option . . add $400.00) 
SOFTWARE FEATURES: 

if GMXBUG monitor — FLEX Disk Operating System 

• OS-9 LEVEL ONE Multi-tasking operating system for up to 56K of memory 



WINCHESTER SUBSYSTEMS 



Winchester packages are available for upgrading current GIMIX 6809 systems equipped with DMA controllers, at least one 
floppy disk drive, and running FLEX, OS-9 LEVEL ONE or OS-9 LEVEL TWO. The packages include one or two 19MB (unformat- 
ted) Winchester drives, DMA Hard Disk interface, and the appropriate software drivers. The Interface can handle two SVi" 
Winchester Drives, providing Automatic Data Error Detection and Correction: up to 22 bit burst error detection and 1 1 bit burst 
error correction. 

Dual drives can be used together to provide over 30 MBytes of on line storage - or use one for back-up of the other. (More 
convenient and reliable than tape backup systems. 

#90 includes one 19MB Drive, Interface, and Software $4288.90 

#91 includes two 19MB Drives, Interface, and Software $6688.91 

Contact GIMIX for systems customized to your needs or for more information. 
50 HZ Export Versions Available 

GIMIX Inc reserves the right to change pricing and product 

specifications at any time without further notice. 1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

GIMIX'5 and GHOST"' are registered trademarks of GIMIX Inc. ,„ . ^> q,-,y cc-|n 

FLEX and UniFLEX are trademarl<s of Technical Systems Consultants Inc. ' ' ^'^ '""-'"-' *-' 

GS-9 is a trademarl< of Microware Inc TWX 910-221-4055 1982 GIMIX inc 



Eimix 



inc. 



Skyles Electric Works Presents 
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The VicTree™ 



. . .Leaoes i^our new Vic (or CBM 64) with 35 additional commands. 
. ..Branches out to most BASIC 4.0 programs. 
. . . Roots into most printers. 

New from Skyles: the VicTree, a coordinated hardware and software package that allows your Vic 
to branch out in unbelievable directions an^d makes it easier than ever to do BASIC programming, 
debugging and to access your disk. And the new VicTree provides routines to interface the Vic to 
the powerful Prohet local network. 8kb of ROM — 4kb for the BASIC commands, 4kb for disk 
commands and interfacing to ProNet — plus 4kb of RAM for miscellaneous storage. Perfect not 
only for the new Vic but also for the Commodore 64. Unbelievably simple to use and to install, the 
VicTree gives you all the additional BASIC 4.0 commands to allow most BASIC 4.0 programs to 
work on your new Vic or CBM 64. 

Mow only $89, 95... or $99.95 complete with Centronics standard printer cable. (Cable alone 
$ 19.95.) Available now from your local dealer or order through your Visa or MasterCard toll free: 

(800) 227-9998 (California, Canada, Alaska, Hawaii: (415) 965-1735) or send check or 

money order directly to: 




Skyles Electric Works 



23 IE South Whisman Road 
Mountain View, CA 94041 
(415)965-1735 
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January Highlights 



Due to the nature of our features on simulations, applica- 
tions, and math in this issue, many articles here will in- 
terest users of a wide range of systems. Even the programs 
written for a particular machine usually can be adapted to 
another. Apple, Commodore, Atari, VIC, OSI, and TSC 
XBASIC users will all find material of interest. 



ware to test the accuracy and reliability of the shutter 
found in most single-lens reflex cameras. "Doing Time" 
by Jim Schreier (p. 28) shows how to do calculations in- 
volving time in TSC BASIC on 6809-based computers. 

Mathematics Articles 



Simulations and Applications 

Simulations save time and money in business, educa- 
tion, and research. For instance, a flight simulator pro- 
gram, available commercially for the Apple and other 
microcomputers, allows the user to control a plane 
through keyboard commands. Bigger computers, coupled 
with replicas of actual airplane control panels, allow stu- 
dent pilots to log a considerable amount of flying time 
without renting a plane or jeopardizing lives. Simulator 
programs are used in scientific research for testing mathe- 
matical models (e.g., of a predator-prey relationship) and 
in industry for determining how products will stand up to 
various kinds of stress. 



Timothy Stryker's "Signed Binary Multiplication" 
(p. 76), Charles Muhleman's "Numerical Rounding" 
(p. 89), and P.P. Ong's "Methods to Evaluate Complex 
Roots" |p. 71), will be of interest to everyone who uses the 
computer to solve mathematical problems. "Apple Math 
Editor" by Robert Walker (p. 78) is a sophisticated pro- 
gram written in Apple Pascal that provides convenient 
display, editing, and printing of mathematical formulas. 
"Using Long Integers" by David Oshel (p. 86] describes 
the implementation of a bullet-proof string conversion for 
Pascal 1.1 long integers with implied decimal points. 



"Discrete Event Simulation" by Anita and Bill Walker 
(p. 21) discusses techniques that can be applied to simula- 
tion programming with a microcomputer. The Walkers 
use as an example a program, written for the Apple n, that 
simulates the flow of customers in a bank line. "Rocket 
I," a program by David Eagle (p. 31), predicts the perfor- 
mance of a model rocket engine, given its specifications. 
"Sun and Moon" by Svend Ostrup |p. 35) is a high- 
resolution simulation of the apparent orbits of the sun and 
moon with respect to the earth. Phases of the moon are 
simulated, along with lunar and solar eclipses. In this 
month's editorial, Editor-in-Chief Bob Tripp describes his 
experience with simulations. 

Accompanying our simulation feature are applications 
— a more familiar use of the computer. The computer's 
use in a non-computer activity may be as little as perform- 
ing calculations or as much as actually operating a scien- 
tific experiment. 

The second part of Jim Strasma's series on package pro- 
gramming using the CBM disk operating system ("It's All 
Relative, Part 2," page 52) will be of particular interest to 
the business user. Engineering applications are included in 
Andrew Cornwall's "Microcomputer Design of Transistor 
Amplifiers" (p. 59), and "Microcomputers in a College 
Teaching Laboratory" by Thor Olsen, et. al. (p. 38). In 
"Measurement of a 35mm Focal Plane Shutter" (p. 45), 
Mike Dougherty describes simple hardware and Atari soft- 



Color Computer Data Sheet 

Color Computer programmers will want to keep the 
data sheet (p. 109) handy. Here, on one easy-to-read sheet, 
is essential information on character codes, memory loca- 
tions, and hardware interfacing. 

Columns 

System-specific information rounds out this month's 
magazine. Paul Swanson's "From Here to Atari" (p. 19) 
discusses reference books every Atari programmer will 
want to keep on hand. Loren Wright's "PET Vet" (p. 69) 
offers more observations on the new Commodore 64 and 
some how-to information on transferring programs from 
one Commodore machine to another. "CoCo Bits" by 
John Steiner (p. 92) provides news relating to the Color 
Computer, lists several programming books, and discusses 
the set-up for a high-resolution graphics display. Tim 
Osbom, in "Apple Slices" (p. 64), presents a program, 
ALTERNATE INDEX, that expands the capabilities of 
BINARY-SEARCH, a program discussed in his previous 
column. 
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INDUSTRIAL CONTROL MICROCOMPUTERS 




6502 AND Z80 
MICROCOMPUTERS 

ARE DEDICATED COM- 
PUTERS DESIGNED FOR 
CONTROL FUNCTIONS. 

THESE BOARDS FEATURE: 

• 4096 BYTES EPROM 

• 1024 BYTES RAM 

• ALL BOARDS 
INCLUDE COMPLETE 
DOCUMENTATION 

• 50 PIN CONNECTOR 
INCLUDED 

• EPROM AVAILABLE 
SEPARATELY 




JOHN BELL ENGINEERING'S 6502 
MICROCOMPUTER FEATURES: 

• 1024 BYTES RAM 

• 4096 BYTES EPROM 

• USES ONE 652- V'A iDOC INCL) 

• 2 8 BIT BIDIRECTIONAL I/O POFnB 

• 2 16 BIT PROOFAMMABLE TIMER/ 

COUNTERS 

• SERIAL DATA FORT 

• LATCHED I/O WITH HANDSHAKING LOGIC 

• TTLANDCMOL-COMPATfBLE 



80- 153 A 

EPROM NOT INCLUDED 



LIST 100-499 
$110.95 S66.57 



JOHN BELL ENGINEERING'S NEW Z80 
MICROCOMPUTER FEATURES: 

• Z80 GPU-SOFl;\AFt COMPATIBLE WITH 
Z80, 8080 AND 8085 MICROPROCESSORS 

• 4096 BYTES EPROM 

• 1024 BYTES RAM 

• SINGLE '^V POWER SUPFlY AT i 'QMA 

• CLOCK PREQUENCY IS 2UHZ. RC 
r ONI ROLLED 

• Z-uPICDC INCL. 

• 2 r-BIT EIDiPECTinNAL I n PORTS 

• LATCHED IC, vMTH HANDShiKI.NG LOGIC 

• TTL AND CMOS GOMPAT'BLf 



8O-280A 

EPROM NOT INCLUDED 



LIST 100-499 
S129.95 $77.97 
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USE YOUR 6502 OR Z80 MICROCOMPUTER TO CONTROL EVERYTHING! 



YOUR H'".ME SECURITY SYSTEM 

HEAT CONTROL 

LIGHT CONTROL 

SOLAR HEATING AND POWER SYSTEMS 

AUTOMATIC CONTROL OF TAPE 

RECORDERS 

TRAFFIC LIGHT CONTROL 

IRRIGATION SYSTEMS 



AUTOMATIC CONTROL OF ViL'F' . 

RECORDERS 

ROBOT CONTROL. 

AUTOMATIC DIALER 

AUTOMATED SLIDE SHOW CONTROL 

COMMUNICATION SYSTEMS FOR THE 

DISABLED 

THE WORLD 



John Bell Engiiveeriivg, Inc. 



ALL PRODUCTS ARE AVAILABLE FROM JOHN BELL ENGINEERING INC • 1014 CENTER ST., SAN CARLOS, CA 94070 
ADD SALES TAX IN CALIFORNIA • ADD 5°. SHIPPING * HANDlING 3% FOR ORDERS OVER $100 

SEND $1.00 FOR CATALOG (415)592-8411 Inn SI^'so^TOr'^C^O^'d 

WILL CALL HOURS: 9am-4pm ADD 51.50 FOR C.O.D. ^ 
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Discrete Event Simulation in Pascai 

Simulate real-world situations 



. Anita and Bill Walker 
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Doing Time on tlie 6809 

Add time in BASIC 

Model Rocket Simulation in BASIC David Eagle 

Determine the altitude performance of single-stage model rockets 



. Svend Ostrup 



Sun and Moon on the APPLE 

Hi-res graphics simulation: the orbits of the sun and moon 

Microcomputers in a College Teaching Laboratory, 

Part 3 Thor Olsen, Howard Saltsburg, and Richard IHeist 

Process Control and the microcomputer 

Measurement of a 35mm Focal Plane Shutter w*e Dougherty 

Use inexpensive hardware to measure the accuracy of your camera 



CO It's All Relative — Using CBM's Relative Records 



Part 2 

Learn how to set up relative files and records 



James Strasma 



CQ Microcomputer Design of Transistor Amplifiers Andy Cornwall 

^^ This program makes it easy to design practical, small signal amplifier stages 



TUTORIALS 

-j -j VIC Hi-Res Graphics Explained Nicholas j. vrtis 

' ' Produce 160- by 176-dot graphics 

_ 68000 Shift, Rotate, and Bit Manipulation 

1 5 instructions JoeHootman 

More detailed coverage of the 68000 

MATH 

Extending Newton-Raphson's Method to Evaluate 

71 Complex Roots p.p. Ong 

Compute the complex roots of a polynomial equation 

70 Signed Binary Multiplication is Unsigned Timothy stryi<er 

' ^ Put this mathematical curiosity to work 

70 APPLE Math Editor Robert D. Wall<er 

' O Easy construction, editing, and printing of mathematical formulas 

00 Using Long Integers for BCD Numbers in Pascal . David c. oshei 

^^ Bullet-proof string conversion 
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Emulates these terminals 

IBM 3101 
DEC VT100, VT52 
Data General D200 
ADDS Regent 20, 25, 40 
Hazeltine 1400, 1410, 1500 
Lear Siegler ADM-3A, ADM-5 
TeleVldeo 910 
Teletype Model 33 KSR 



Apple is a trademaik ol 
Apple Compuier, Ini;. 




New File Transfer Language 



BREAK 

CATALOG 

CHAIN 

CONFIGURE 

CONNECT 

CONVERSE 

DIAL 

END 

HANGUP 

LOG 

MONITOR 

NOLOG 

ONERR 

PAUSE 

PROMPT 

RECEIVE 

REMARK 

RETRIES 

SEND 

SPECIAL 

SPEED 

TIMEOUT 

XMITWAIT 



Supports these 
interface tioards 



Your host compu 

won't know the difference! 

Sotterm provides an exact terminal emulation 
for a wide range of CRT terminals which interface 
to a variety of host computer systems. Special 
function keys, sophisticated editing features, 
even local printer capabilities of the terminals 
emulated by Softerm are fully supported. Softemi 
operates with even the most disaiminating host 
computer applications including video editors. 
And at speeds up to 9600 baud using either a 
direct connection or any standard modem. 

Unmatched file transfer capability 

Sotterm offers file transfer methods flexible 
enough to match any host computer requirement. 
These include character protocol with user- 
definable terminator and acknowledge strings, 
block size, and character echo wait, and the 
intelligent Softrans'" protocol which provides 
reliable error-free transmission and reception of 
data. The character protocol provides maximum 
flexibility for text file transfers. Any type file 
may be transferred using the Softrans protocol 
which provides automatic binary encoding and 
decoding, block checking with error recovery, and 
data compression to enhance line utilization. 
A FORTRAN 77 source program is supplied with 
Softerm which is easily adaptable to any host 
computer to allow communications with Softerm 



Apple Communications Card 

Apple Parallel Printer 

Apple Serial Interface 

Apple Super Serial Card 

Bit 3 Oual-Comni Phis™ 

CCS 7710,7720, 7728 

Hayes Micromodeni II™ 

Hayes Smartmodem'" 300, & 1200 

Intra Computer PS10 

Mountain Compuier CPS Card™ 

Novation Apple-Cat II™ 300 & 1200 

Orange Micro Grappler™ 

Prometheus VERSAcard™ 

SSM ASIC, APIO, AlO, AlO 11™ 

Supports your 80-colum hardware 

ALS Smartemi™ 

Bit 3 Full- View 80™ 

Computer Stop Omnivision™ 

M&R Sup'RTennlnar 

STB Systems STB-SO™ 

Videx VMeotenn™ 

Vista Computer Vision 80™ 

Wesper Micro Wizard 80™ 



using the Softrans protocol. 

Softerm file transfer utilizes an easy to use 
command language which allows simple defini- 
tion of even complex multiple-file transfers with 
handshaking. Twenty-three high-level commands 
include DIAL. CATALOG. SEND, RECEIVE, 
ONEPR, HANGUP, MONITOR and others which 
may be executed in immediate command mode 
interactively or from a file transfer maao com- 
mand file which has been previously entered 
and saved on disk. 

Built-in utilities 

Softerm disk utilities allow DOS commands such 
as CATALOG, INIT RENAME, and DELETE to be 
executed allowing convenient file maintenance. 
Local file transfers allow files to be displayed, 
printed, or even copied to another file without 
exiting the Softerm program. Numerous editing 
options such as tab expansion and space com- 
pression are provided to allow easy reformatting 
of data to accommodate the variations in data 
formats used by host computers. Softerm sup- 
ports automatic dialing in both temiinal and file 
transfer modes. Dial utilities allow a phone bookoi 
frequently used numbers to be defined which are 
accessed by a user-assigned name and specify 



the serial interface parameters to be used. 

Online Update Service 

The Softronics Online Update Service is pro- 
vided as an additional support service at no 
additional cost to Softerm users. Its purpose 
is to allow fast turnaround of Softerm program 
fixes for user-reported problems using the 
automatic patch facility included in Softerm 
as well as a convenient distribution method for 
additional terminal emulations and I/O drivers 
which become available. User correspondence 
can be electronically mailed to Softronics, and 
user-contritjuted keyboard macros, file transfer 
macros, and host ailaptations of the Softrans 
FORTRAN 77 program are available on-line. 

Most advanced communications 
software available 

Just check Softerm's 300 page user manual. 
You simply can't buy a more sophisticated 
package or one that's easier to use. Available 
now for only $150 from your local dealer or 
Softronics, Inc. 

SOFTRONICS 

6626 Prince Edward, Memphis, TN 38119. 901-755-5006 
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The skier on our cover this month flies 
gracefully down a snowy Waterville 
Valley slope. His face reflects the ex- 
hilaration every skier feels while out in 
the sun and crisp air. 

See our editorial for a discussion on 
queuing — something many downhillers 
experience before they hit the slopes. 

Cover photo by: 

Joan Eaton 

Waterville Valley Photo 

Waterville Valley, NH 
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Editorial 



A GASP, a Wheeze, and a 'Gotcha' 

The typical MICRO reader owns a 
system and uses it primarily for serious 
work and program development. This 
issue focuses on ways to use your com- 
puter in real applications, mathema- 
tical problems, and in discrete event 
simulation. While the value and use of 
the real applications and the 
mathematical material should be ob- 
vious, the computer simulation will be 
a new topic for many readers. 

"Discrete Event Simulation" [see 
the Walker article starting on page 21) 
is an exciting, broad area of computer 
application that often disguises itself as 
a rather dull, limited technique. This is 
due, I believe, to the examples 
presented: average waiting time in a 
bank queue, average waiting time in a 
doctor's office, and so forth. Don't let 
these particular examples mislead you. 
Computer simulation can be fun! 

Years ago, I took a course in 
Discrete Computer Simulation. The 
basis of the course was a computer 
simulation package called "General 
Activity Simulation Program" (GASP). 
Written as a series of FORTRAN 
subroutines, this was configured to run 
on a PDP-10. The user would write a 
program that set up the operating 
environment parameters and called 
various support subroutines as 
required. 

While many classmates simulated 
traffic lights and cafeterias as term pro- 
jects, I chose to simulate the Waterville 
Valley Ski Area of New Hampshire. 
This month's cover symbolizes this 
study. Whenever I think of downhill 
skiing, two images come immediately 
to mind. First, there is the image of 
racing down the clean white slopes, 
passing through the picturesque trails, 
breathing the fresh air. Second, there is 
the image of the lift line, with the long 
wait, the dreary dirty snow underfoot, 
the cold of just standing and waiting. 
My simulation addressed methods of 
reducing the lift line wait by limiting 
the number of tickets sold each day, 
developing additional long trails, and 
adding another lift. Since the lift 



manager in those days was my cousin, I 
was able to get real information about 
the length of the lift ride, average time 
down the slope, number of customers, 
and so forth. 

My first 'real' simulation was of a 
microprocessor. We needed to know if 
the processor could successfully handle 
eight operators simultaneously typing 
on individual keyboards. Unfortunate- 
ly, the PDP-10 was not available. I 
located a PDP-9 and converted 'GASP' 
from the PDP-10 to 'Wheeze' on the 
PDP-9. The conversion was not dif- 
ficult, and I think it could be easily 
converted to run in BASIC on almost 
any of the current micros. 

Converting the program wasn't a 
problem, but running it became a 
nightmare. A simulation of this nature, 
where the event is the keystroke of one 
of eight o.perators, will be necessarily 
slow. The actual event might average 
one occurrence every 10 milliseconds 
or so (eight operators typing at twelve 
characters per second each), while the 
simulation processing might take one 
to three seconds per event, creating a 
100- to 300-fold time expansion. A 
simulation of five minutes of typing 
could take between 500 and 1500 
minutes to run! Since the PDP-9 was 
not being used for anything else, that 
should not have been a problem - but it 
was. 

Everytime the program was run, it 
would work for a while, but would 
crash before completion. I noticed that 
the crashes seemed to occur at about 
11:30 AM and 3:30 PM. A little in- 
vestigation revealed that the 
machinists in the shop on the floor 
above quit for lunch at 11:30 and quit 
for the day at 3:30. That was the 'Got- 
cha' - a power surge from the machines 
being turned off. The simulation pro- 
gram worked perfectly - but only at 
night. 

The results of the keyboard simula- 
tion showed that not only could the 
microprocessor keep up with the eight 
operators, it would be idle almost 80 
percent of the time! 

There are many interesting events 
that may be simulated. With your 
dedicated equipment, you can do 
significant simulations. 

Robert M. Tripp 
President/Editor-in-Chief 
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Now Available as a Boxed Set 



MICRO on the Apple Series 

We have taken the best Apple-specific programming aids, utilities, enhancements, 
games and more that have appeared in MICRO, The 6502/6809 Journal, and put them 
in three Wire-0-Bound volumes for easy use. 

...and we've made it even EASIER by entering every program on one diskette! 
(included in the price) 



iMGRO 

on the Apple 

umes "j 2 3rid 3 



Vol 



INCLUDES I 
DISKETTi I 




Volume 1 Allows you to: 

• Round and format numbers accurately 

• Get lowercase letters and punctuation 

Into Applesoft strings 

• Play the hit game "Spelunker" 

Volume 2 Lets you: 

• Speed up machine-language programming using 

five powerful machine-language aids 

• Add additional editing and I/O features 

• Play the intriguing game "GalactlCube" 

Volume 3 Gives you more: 

• Machine-language aids 

• I/O enhancements 

• Graphics and games 



All thiee volumes, attmctively boxed for only $59.95 
(Including 110 programs on one diskette) 

20 % savings off individual purchase price 

(If purchased separately — $74.95) 



MICRO 
on the 
APPLE 
Series 



n Three-Volume Gift-Boxed Series $59.95 (plus $5.00 s/h) 
D Vol. 1 n Vol. 2 D Vol. 3 $24.95 ea. (plus $2.00 s/h) 
D Checl^ Enclosed D VISA D MasterCard 

Payable to MICRO (ma residents add 5% sales tax) 



Card* 



ExDires. 
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Order TODAY! 
Mail to 

IMCftO 



34 Chelmsford Street 
P.O. Box 6502 

Chelmsford, MA 01 824 
617/256-5515 

Call Today — Toll Free 
1-800-345-8112 

(In PA 1-80(W62-2444) 
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Updates 
and Microbes 



Homespun Revision 

John Beckett of CoUegedale, TN, sent 
in this revision to "A Homespun 32K 
Color Computer" (53:91). 

Do solder the chips together, rather 
than expecting hand-bent pins to make 
good contact. Model I users will be 
happy to comment in favor of anything 
to improve the communication be- 
tween your CPU and memory. 

It is best to put a ferrite bead around 
the wire connected to the 6883 chip, 
just before it reaches the 6883. Failing 
that, use a 33-ohm resistor. This is 
done in Tandy's 32K version, and is 
recommended by Motorola in their 
6883 data sheet. 

Later models of the PC board have a 
place on the PC board where you can 



connect the lead from the extra 
"bunk" of chips. It would be best to 
connect to that place, so as to avoid 
soldering directly to the 6883. 

What's Where in the Apple Atlas 
Updates 

The following subroutines have 
been relocated in the new (Autostart) 
ROMS: 





Old 


New 




Monitor 


Autostart 


Subroutine 


Applesoft 


Applesoft 


HGR2 


F3D4 


F3D8 


HGR 


F3DE 


F3E2 


HCLR 


F3EE 


F3F2 


BKGND 


F3F2 


F3F4 


HPOSN 


F40D 


F411 


HPLOT 


F453 


F457 


HLIN 


F530 


F53A 



Microbes 

The following change should be made 
in the review of Light-Pen in Reviews 
in Brief (53:97). 

Under the minuses, the first 
sentence should read "The programs 
require a machine-language routine..." 
rather than "The programs use a 
machine-language routine. ..." 



Let us know if you've updated an 
article or discovered a bug. Send a note 
to: Updates/Microbes, MICRO, P.O. 
Box 6502, Chelmsford, MA 01824. 

iSMCRO 



UPGRADE YOUR AIM-65* INSTANTLY 



*A trademark of Rockwell Inc. 



To A 6809 Development System 

With The 
"MACH-9" 

From 

M M S Inc. 




INTRODUCTORY PRICE 

$239. 

Plus $6 U.P.S. 
And Handling 



Includes: 

*6809 CPU Plug-in Assembly 
'Super-set of AIM Monitor 
*Two-Pass Symbolic Assembler 
'Complete Monitor Source Listings 
•Enhanced Cut & Paste Editor 
*200 Page Manual 
'Full I/O Control 



"MACH-9" is assembled and tested with 
local BUS, 5 locking low force ROM sockets 
and 2K Static RAM 



M M S Inc. 

1110 E. Pennsylvania St. 

Tucson, AZ 85714 

(602) 746-0418 



'0 


■...JM,:^... 
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VIC-20® 

VIC-20® Personal Computer $179.95 

VIC-1011A RS232C Interface 39.95 

VIC-1515 Printer 334.95 

VIC-1530 Datasette 67.50 

VIC-1540 Disk Drive 349.95 

VIC-1111 16KRAMExp. 99.95 

VIC-1110 8K RAM Exp. 52.50 

VIC-1210 3K RAM Exp. 34.95 

VIC-1010 Expansion Module 139.95 

VIC-1311 Joystick 9.95 

VIC-1312 Game Paddles 1995 

VIC-1600 Telephone Modem 99.95 



BUSINESS & HOME APPLICATIONS 

WB1 01 Total Text 2.5 $24.95 

WB102 Total Labels 19.95 

WB103 Total Research 24,95 

WB104 Predicator-Linear Regression 16.95 

PB105 Billing Solver (20 & 64) 19.95 

PB106 Utility Bill Saver (20 & 64)... 12.95 

WB107 The Gasoline UnGuzzler 

(20&64) 15.95 

WB107 Accounting 29.95 

WB108 Accounts Receivable 21.95 

WB109 Calculator 12.95 

WB110 Order Tracker 18.95 

WB111 Business Inventory 19.95 

WB112 Depreciation 10.95 

WB113 Ratios 9.95 

WB114 Cash Flovi/ 14.95 

WB115 Net Worth 14.95 

WB116 Lease /Buy 14.95 

WB117 Mortgage Calculator 10.95 

WB118 Mortgage Comp 10.95 

WB11 9 Loan Amortiser 24.95 

WB120 Loan Repayer 10.95 

WB1 21 Phone Directory 9.95 

WB122 Client Tickler 19.95 

WB123 Estimates & Bids 14.95 

WB124 Bar Charts 9.95 

WB125 Stock Ticker Tape 16.95 

WB126 Regress on VIC-20, 64 16.95 

WB127 P.E.R.T. MY VIC 15.95 

WB128 Business Appointments .... 13.95 

WB129 The Predictor-Linear 16.95 

PT130 Billing Solver VIC-20, 64 ... 19.95 

PT132 Utility Bill Solver 

VIC-20, 64 12.95 

WB134 Nuismatic Panatic 

VIC-20, 64 15.95 

WB135 The Pill Box VIC-20,64 14.95 

PT136 Club Lister VIC-20, 64 14.95 

WB137 Mother's Recipes 

VIC-20, 64 12.95 

WB139 Terminal 40 29.95 

WB140 Minimon 11.79 

WB141 Typewriter 27.95 

WB142 Data Files 14.95 

SB143SS Mailing List (Tape) 19.95 

(Disk) 24.95 



CARDBOARD 6 



$79.95 



(Special Christmas Price — after Dec. 15, back to $99.95) 
An expansion Interface for the VIC-20 — allows expansion 
to 40K or accepts up to six games — may be daisy chained 
for more versatility. 

CARDBOARD 3 $29.95 

Economy expansion interface for ttie \/IC-20 

CARD"?" CARD/PRINT $79.95 

Universal Centronics Parallel Printer Interface for the 
VIC-20 or CBH/l-64 Use an Epson IVIX-80 or OKfDATA or 
TANDY or just about any other. 

CARDETTE $39.95 

Use any standard cassette player/recorder with your 
VIC-20 or CBM-64. 

CARDRITER $29.95 

A light pen with six good programs to use with your VIC-20 
or CBM-64. 



WGlOl 
WG102 
WG103 
WG104 
WG105 
WG106 
WG107 
WG108 
WG109 
WG110 
WG111 
WG112 
WG113 
WG114 
WG115 
WG116 
WG117 
WG118 
WG119 
WG120 
WG121 
WG122 
WG123 
WG124 
WG125 
WG126 
WK101 
WK102 
WK103 
WK104 
WK105 
WK106 
WK107 
WS101 



WE101 
WE102 
PE103 
PE104 
WE105 
WEI 06 
WE 107 
WE 108 
WE 109 
WE110 
WE1 11 
WE112 
WE113 
WE115 



GAMES FOR ALL 

Adventure Land (Cart.) $37.95 

Mission Impossible (Cart.) 37.95 

Gorf (Cart.) 37.95 

Omega (Cart.) 37.95 

Money Wars 28.95 

Breakout 9.95 

Hangman 9.95 

Monks 7.95 

Tank 17.95 

Simmon 15.95 

Pac Bomber 15.95 

Dam Bomber 15.95 

Cube 14.95 

Spider from Mars 37.95 

Exterminator Plus 19.95 

3-DHackman 19.95 

Snackman 19.95 

Anti-Matter Splatter 19.95 

Bombs Away 15.95 

3-D Maze Escape 14.95 

Krazy Kong 14.95 

Alien Panic 14.95 

Rescue from Nufon 14.95 

Escapes 14.95 

Journey 14.95 

Invasion 14.95 

Help Chicken Little 14.95 

Mole Attack 19.98 

Car Chase 19.98 

Blue Meanies 11.95 

Space Math 11.95 

Super Slither 11.95 

Spiders of Mars 1 1 .95 

Cribbage 14.95 

EDUCATION 

Find the Words (20 & 64) $10.95 

Temperature Converter (20 & 64) ... 9.95 

The Mathamaglcan (20& 64) 14.95 

The Metric Brain (20 & 64) 10.95 

Money Addition Grades 4th & 5th (20) 9.95 

My Body - Elementary (20) 9.95 

Graphics (20) 17,95 

Diagramming Sentences (20) 12.95 

Fraction Reduction (20) 9.95 

Countries (20) 9.95 

Spell (20) 9.95 

State Capitols (20) 9.95 

Tutor Math (20) 9.95 

Math Whiz (20) 12,95 



VISA* 



Prices subject to change. 
TO ORDER: j- ^— -^-"-n. ^ 

P.O. Box 18765 Uai^^md] 

Wichita. KS 67218 K^^f^yl 

(316) 684-4660 '^ ^ — ■^•—^ i 

Personal Checlfs Accepted (Allow 3 Weeks), or CO. D. (Add $2.00) 
Handling Charges $2.00 
■ VIC-20 is a registered trademark of Commodore, Inc. 
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VIC Hi-Res Graphics Explained 

by Nicholas J. Vrtis 



This article demonstrates the 
use of VIC'S 160-by-176 dot, 
high-resolution graphics. A 
sample BASIC program 
illustrates the necessary set-up. 

VIC Graphics Demo 

requires: 

VIC-20 with 3K extra memory 
(may be modified for 
unexpanded ViCs or for more 
memory) 

The VIC manuals refer to the capability 
of high-resolution graphics. There is 
even a section in the VIC-20 Piogiara- 
mer's Reference Guide that shows how 
to do 64 by 64 bit graphics. Unfor- 
tunately, it is not obvious how it all 
works. The purpose of this article is to 
help shed some light on the subject of 
VIC graphics. 

To understand high-resolution 
graphics you have to understand how 
programmable characters work. The 
VIC doesn't really have a "graphics" 
mode, but it does have two features 
that allow for graphics displays. The 
first and most important is that the 
contents of the pointer that normally 
points to the character ROM can be 
changed to point to RAM. The other is 
that the character size can be changed. 

Before explaining how these com- 
bine to get graphics, I need to review 
quickly how characters are normally 
displayed on the screen. A more detailed 
explanation can be found in the Pio- 
giammei's Reference Guide and in a 
number of articles on special characters 
for the VIC. Each byte in screen mem- 
ory is used as an index into the charac- 
ter memory. It is actually character 
memory that tells the VIC which dots 
to turn on or off in the display. In nor- 
mal mode a character is 8 rows of 8 dots 
per row. In expanded character size, a 
character is 16 rows of 8 dots per row. 



By telling the VIC chip that character 
memory is located in RAM, which dots 
are turned on or off can be controlled 
from a program. This is how special 
characters are created. 

So how does this lead to graphics 
you ask? Good question! If I were to 
POKE the values through 255 in the 



first 256 screen memory locations, all 
the possible characters would be 
displayed in order. Now let's take a 
moment to look at where the bits for 
each character come from. The first 8 
by 8 square of dots (an @) comes from 
the first 8 bytes of character memory at 
the rate of 8 bits per byte. The second 8 



Listing 1 


10 


FRINT"UIC: GRHPHICS DEMO" 


110 


FRIHT"EV: NICK URTI3" 


120 


POKE 1. . PEEK ^:: 55) i REM SflUE CURRENT END 


13 


P0KE2.. PEEK::56:i 


140 


F0KE55.. ;REri SET NEU END TO 4 096 


1 5 


PGKE56.. 4096. 256 


l&O 


CLR :REri CLR EECRUSE END UflC CHHNCED 


17 


Cri=4 096 


1 3 


RC= 1 


190 


CR=22 


2 


NR=16 


21 


GF=RC*NR..'2-1 ;REM SET CRflPH SCRLE Fi=lCTCR 


22 


REM ZERO FUTURE CHflRi=lCTER MEMORY 


23 


FOR ;;=CM TO CM^RC*CR*HR-1 


24 


POKE ;;.. :HEXT 


25 


REM ALL I'S TO UMLISE[: TO MAKE R BORDER 


26 


FOR ^;=CM+RC-*CR^*NR TO 7679 


27 


POKE ^;.. 255,NE:',T 


23 


REM SET TO 3;a6 CHHRFiCTER SIZE 


29 


POKE 36367.. PEEK C 36367) OR 1 


30 


BY=PEEKi;36379) RHD 7 : REM GET CURRENT EflCKGROUND 


310 


FOR ;^=0 TO RC*CR-1 ; REM INDEI^IES TO SCREEN MEMORY 


32 


POKE 7630+;;.." 


33 


POKE 334 00+;;.. BY 


34 


he:;t 


35 


FOR ::;=RC*CR TO 511 ; REM FILL REST WITH UNUSED CHflRRCTER 


36 


POKE7630+;;..RC-*CR 


37 


POKE334 00+;;.. BY 


33 


ne;;t 


39 


REM TELL UIC NUMBER OF CHRRRCTERS. ROW 


40 


POKE 36366.. < PEEK::: 36366) RMD 123) + CR 


41 


REM CHHMCE ADDRESS OF CHflRRCTER MEMCR'/ 


420 


POKE 36369,;: PEEK ':36G69) RND 240) + CM--1024 + 3 


50 


FOR ;;=0 TO CR*3-1 


5 1 


Y= I NT :; SF +SF*SI M ■; ;;-' 1 ) + 1 ) 


52 


GOSUB 1000 


53 


HEJiiT 


6 00 


GETfl* '.REM WRIT FOR RNY K'EY 


6 1 


IF R*="" THEN 600 


62 


P0KE55..PEEK(1) ; REM RESTORE OLD EdM 


63 


F0KE5&.. PEEK::2) 


64 


SYS < 59329) ; REM RESET UIC CHIP 


650 


END 


10 00 YR=V--HR 


1010 c!-i=inT;:;i.'3)<-iMT^;:YR)*CR 


102 


3 Rl,,.l= ;; YR - 1 NT C YR ) ) *r JR 


1 03 


BY=CM+CH*NR+RU 


1 040 EI=7-';X-IHTOf Sj*S:) 


1 05 


FOKEBY..PEEK<BY) OR (2'"BI) 


1060 RETURN 
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by 8 square of dots comes from the sec- 
ond 8 bytes of character memory, etc. 
What is being displayed on the screen is 
not the 256 display able VIC characters, 
but all the bits that are set in the 2048 
bytes starting at the address defined as 
character memory! [256 indexes • 8 
rows • 8 dots = 16384 dots = 2048 
bytes • 8 bits). 

With this knowledge I can calculate 
which bit in which byte is to be set to a 
one in order to turn on a selected dot. 
The following formulas are adapted 
from the VIC Programmers Reference 
Guide. 



CHAR = INT(X/8) + INT(Y/NR) • CR 
ROW = (Y/NR - INT(Y/NR)] • NR 
BYTE = SM + CHAR • NR + ROW 
BIT = 7 - (X - (INT(X/8) '8) 



For these formulas, X represents ascend- 
ing values to the right, and Y represents 
ascending values from the top down. 
CR is the number of characters per row, 
which we will discuss later, and NR is 
the number of rows of dots per charac- 
ter (8 for normal size characters). 



There is only one more major obser- 
vation to make. As everyone knows, 
the VIC screen is 22 characters by 23 
rows, for a total of 506 characters being 
displayed at one time. How can I fill a 
screen of 506 characters with only 256 
unique combinations? The trick is 
double-height characters. The double- 
height characters don't change the dot 
size displayed on the screen, so each 
"character" covers twice as much 
screen area. 

To put things a little differently, the 
VIC screen is 176 dots wide by 184 dots 
high, for a total of 32384 dots (4048 
bytes). The double-high characters pro- 
vide for 32768 dots (256 indexes * 16 
rows • 8 dots per], so obviously all the 
problems are taken care of, right? 
Wrong. The problem is the memory the 
VIC chip itself can address. As stated in 
the expansion modules, the VIC chip 
(as opposed to the VIC computer), can 
only address memory from 4096 to 
8191 (hex $1000 to $1FFF]. While this 
4096 bytes is sufficient to hold a full set 
of double-high character memory, we 
still need to take the 512 bytes of 
screen memory from this same area. 



We've discussed most of the infor- 
mation you use to do graphics on the 
VIC. There are a few minor technical 
details left and compromises concern- 
ing the amount of graphics and 
memory needed for BASIC. Character 
memory can start at one of four RAM 
locations: 4096, 5120, 6144, or 7168 
(with a 12, 13, 14, or 15 in the last four 
bits of location 36869). Screen memory 
can be at any of eight RAM locations: 
4096, 4608, 5120, 5632, 6144, 6656, 
7168, or 7680 (bits 4-7 of location 
36869 control which 1024 boundary, 
and bit 7 of location 36866 controls 
whether it is an even 1024 or 512 boun- 
dary). Character and screen memory 
are set independently, and can even oc- 
cupy the same locations. In fact, for the 
maximum resolution graphics, they 
have to overlap some. If character 
memory is set to 4096, and screen 
memory to start at 7680 by; 

POKE 36869,(PEEK(36869) AND 
240) -(- 12 . 

there are 3584 bytes available for 



THE MONKEY WRENCH 

A PROGRAMMER'S AID FOfl-ATARI 800 

If you are a person who likes to 
monkey around with the ATARI 800 — 
Then THE MONKEY WRENCH is for 
you! Make programming tasks 
easier, less time consiiming and 
more fun. Why spend extra hours 
working on a BASIC program when 
the MONKEY can do it for you. 
Plugs in the RIGHT cartridge slot 
and works with ATARI BASIC. 

The Monkey Wrench provides 540 nc 

9 new BASIC direct mode com- "^ 

mands. They include: AUTO LINE NUMBERING, DELETE 
LINE NUMBERS, CHANGE MARGINS, MEMORY TEST 
RENUHflBER CURSOR EXCHANGE, HEX & DECIMAL 
CONVERSION, and MONITOR. The monitor command 
gives access to a machine language monitor with 15 
commands used to interact with the powerful features 
of the 6502 microprocessor. 




ATARI AND PET 
EPROM PROGRAMMER 

Programs 2716 and 2532 
EPROMs. Includes hardware 
and software. PET = $75.00- 
ATARI (includes sophisticated 
machine language monitor) = ', 
$119.95 j 




Prownier Primer - ExcellenI dot malrix prim Parallel 
Serial = S600 00 IEEE = S589 00 



: S489 00 



VIC RABBIT CARTRIDGE 



"High-Speed 

Cassette 

Load and Save!" 




$39.95 

(includes Cartridge 
and Manual) 



Expansion Connector 



"Don'twaste your Life away waiting to LOAD and SAVE 
programs on Cassete Deck." 

Load or Save 8K in approximately 30 seconds! Try 

it — your Un-Rabbitized VIC takes almost 3 minutes. 

It's not only Fast but VERY RELIABLE. 

Almost as fast as VIC Disk Drive! Don't be foolish - 

Why buy the disk when you can get the VIC Rabbit 

for much, much less! 

Easy to install - it just plugs in. 

Expansion Connector on rear. 

Works with or without Expansion Memory. 

Works with VIC Cassette Deck, 

12 Commands provide other neat features. 

Also Available for 20(^,4001, and 8032 



PET TERMINAL SOFTWARE 

A buy you RS-232 users can't pass-up. Includes 
RS-232 hardware with a sophisticated software 
package. May be controlled via keyboard or from 
BASIC. A super buy, $129.95 



OC Hayes Smart Modem = $235 00 
DC Hayes Micro Modem M = S2B9 00 



Rana Disk Dnve - 375 
4 Drive Controller - 1 14 



More than just an Assembler/Editor! 



It's a 

Professionally 

Designed 

Software 

Development 

System 




MAE 



tor 

PET 

APPLE 

ATARI 

$169.95 



Blast oft with the software used on the space 
shuttle project! 

• DesgMd to improve Progfammer Pioductivity 

• Simdar syntax and commands - No neM to releam peculiar 
synuxes and commands wrten you go from PET to APPLE 
10 ATARI 

• Coresident AssemUer/Edllor - No need to load the Editor men ttie 
AsiemUer ttien the Ednor. etc 

• Also nctudes Wbrd Processor. Retocalmg Loader, and mucti 
more 

• Optnrts EPflOM Programmer, untmptememed opcode circuitry 

• STILL NOT CONVINCED Send tor tree spec slleet< 



SVa INCH SOFT 
SECTORED DISKEHES 

Highest quality. We use them on 
our PETs, APPLES, ATAfils, and other 
computers. $22.50/10 or $44.50120 




EPROMS 2716 = $6 50. 2532 = $12 So 

Over 40 Commodore Programs by Baker (on 4040) 



J250O 




3239LinciaDr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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graphics. This allows for 22 columns 
by 10 rows, or 176 dots across by 160 
dots down (each row is 16 dots high 
with double-height characters). It 
doesn't allow for room for a BASIC pro- 
gram on an upexpanded VIC. If you 
want room for a IK BASIC program, 
move character memory to 5120, and 
keep screen memory at 7680 with the 
following: 

POKE 36869,(PEEK(36869) AND 240) 
+ 13 

This allows for 2560 bytes of graphics 
data, and a default grid of 176 dots (22 
characters] by 112 dots down (7 double- 
high characters) usirig 2464 bytes. That 
is not a very square area to graph in, so 
use the following to change the number 
of characters per row from 22 to 17: 

POKE 36866,(PEEK(36866) AND 128) 
-I- 17 

This gives 136 dots across by 144 dots 
down. 

Note that all this discussion applies 
to unexpanded VICs, or VICs with only 
the 3K expander. There is one further 
complication for VICs with more than 
8K. For these systems, the screen 
memory defaults to location 4096, and 
the BASIC program starts at 4608. In 
order to use graphics with these sys- 
tems, the start of the BASIC program 
must be moved above the area used for 
the screen and character memory (i.e., 
above 8191). Under the right conditions, 
it can be done by the BASIC program 
that is running, but it is much simpler 
to do before loading the program. 

The program included with this ar- 
ticle is a sample of how to use high- 
resolution graphics with the VIC. If you 
look at it, you will find that most of the 
program is involved in setting things 
up, and that lines 500 to 530 are the 
ones that create the actual graph (a sim- 
ple sine curve). The program as shown 
is for a VIC with the 3K expander. If 
you have an unexpanded VIC, change 
the following lines and remove all the 
REMs. This will give a 136 by 144 dot 
field. 

150 POKE56, 51 20/256 
170 CM = 5120 
180 RC = 7 
190 OR = 17 

If you have the 8K expander you 
should remove statements 150 and 



160, since the end of memory is above 
screen memory. You will also have to 
enter the following statements in direct 
mode before loading the BASIC pro- 
gram. These statements move screen 
memory to where it is on the standard 
VIC, and also set the start of the BASIC 
program to just above screen memory. 
This lets us use memory from 4096- 
7680 as character memory. 



POKE 36866, 150:POKE 36869,240: 

POKE 648,30 
POKE 43,1: POKE 44,32 
POKE 8192,0 
CLR:NEW 



You should press the CLR/HOME key 
to clear the screen after typing in the 
first line. This will tell BASIC you 
changed the screen location. 

Lines 120-160 establish a new top of 
memory, which is below where the 
new character memory will be. The 
CLR makes sure BASIC doesn't use any 
of that memory. Lines 170-210 set up 
constants used later. 



CM is the location of character 

memory 

RC is the number of row characters 

CR is the number of characters per row 

NR is the number of dots per row 

character 

SF is a scale factor to center the sine 

curve 



Note that RC*NR is the number of dot 
rows, and CR*8 is the number of dots 
wide. 

The loop at 230 initializes the 
character memory we will use for the 
graph to zeros, while the one starting at 
260 initializes the rest of character 
memory to ones. Note that these loops 
initialize a lot of memory, so they take 
a few seconds to run. 

Lines 310-340 POKE the numbers 
0-219 (153 for unexpanded VICs) to 
screen memory, while lines 350-380 
POKE an unused character into the rest 
of screen memory. Since the location of 
character memory has not been changed 
yet, you will get a demonstration of the 
VIC character set. 



Lines 400 and 420 change the char- 
acters per row (only necessary for the 
unexpanded version), and move charac- 
ter memory to the RAM area we have 
set up previously. Since a one bit on 
displays the border color, and we have 
initialized all the unused character 
memory to ones, the screen will appear 
to shrink at this time. 

Lines 500-530 plot the sine curve by 
calling the plot routine at lines 
1000-1060. This routine was described 
earlier. 

Lines 600 and 610 allow you to ad- 
mire your work by waiting for a key to 
be pressed. Then lines 620 and 630 
reset the top of memory back to their 
original values. The SYS(59829) resets 
the VIC chip to its normal default 
values. 



Nick Vrtis is the Manager of Technical 
Support at Amway Corporation. You may 
contact him at 5863 Pinetree S.E., 
Kentwood, MI 49508. 



iMCftO 



VIC-20 



i 
i 
I 
■ 

I 

I 



I 

9 



VIC-20 INTERFACING BLUE BOOK 

Did you know that your VIC can be used to 
control a 99« toy motor so elfectlvely that it 
runs like a precision machine? Or that you can 
build an accurate digital thermometer using 
the VIC and four parts costing less than $5? 

These and other 18 interfacing projects 
selected for usefulness, ease of construction 
and low cost are detailed in the VIC-20 Inter- 
facing Blue Book, a veritable gold mine of prac- 
tical information on how to build a variety of in- 
terfaces for your computer. 

Projects include: Connecting ViC to your 
stereo; Ptckproof digital lock; Capacitance 
meter; Liquid level sensor; Telephone dialer; 
Voice output; 8K/16K RAMI^QM expansion; 
128K RAM expansion; 8-bit precision D/A; S-bit 
AID converter; MX-80 interface and more. 

Written by a college professor in a friendly 
and informative style, the Blue Book gives you 
theory of operation, schematics, program 
listings, parts list, construction hints and 
sources of materials for each one of the 20 pro- 
jects. 

If you want to get the most out of your VlC 
this book is a must. Cost is $14.95 (less than 
75c per project!). Price includes postage. ■ 

■ ■■■■■■■■■■■^s 

micrDsignBl oeptN 

P.O. BOX 32 
MILLWOOD NY 10546 



Ptease sand ma a copy ol the Blue Book. 
Enclosed my ctieck for $ 



Above prices include postage in the 
U.S. CA res. add 6% tax. Foreign add S2. 
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The 68000 

DREAM MACHINE 



WE (SORT OF) LIED: 

Motorola has been promoting its advanced microprocessor 
chip as a vehicle for large, complex systems exclusively. 
Now, the 68000 does work well as the heart of big, complex 
systems. But their promotional literature implies that one 
can only build big, complex systems with the 68000, and that 
is dead wrong (in our opinion). Nevertheless, the public 
(that's you!) perception of the 68000 follows Motorola's line: 
Big systems. Complex systems. 

Our boards are not complex and not necessarily big (starting 
at 4K). Our newsletter is subtitled "The Journal of Simple 
68000 Systems." But since the public has become condi- 
tioned to the 68000 as a vehicle for FORTRAN, UNIX, LISP, 
PASCAL and SMALLTALK people naturally expect ail these 
with our $595 (starting price) simple attached processor. 
Wrong! 

We wrote our last ad to understate the software we have 
available because we wanted to get rid of all those guys who 
want to run (multi-user, multi-tasi<ing) UNIX on their Apple II 
and two floppy disi^s. Running UNIX using two 143K floppies 
is, well, absurd. The utilities alone require more than 5 
megabytes of hard disk. 

HERE'S THE TRUTH: 

We do have some very useful 68000 utility programs. One of 
these will provide, in conjunction with a suitable BASIC com- 
piler such as PETSPEED (Pet/CBM) or TASC (Apple II), a five 
to twelve times speedup of your BASIC program. If you have 
read a serious compiler review, you will have learned that 
compilers cannot speed up floating point operations 
(especially transcendentals). Our board, and the utility soft- 
ware we provide, does speed up those operations. 

Add this line in front of an Applesoft program: 

5 PRINT CHR$(4);"BLOADUTIL4,A$8600":CALL38383 

That's all it takes to link our board into Applesoft (assuming 
you have Applesoft loaded into a 16K RAM card). Now run 
your program as is for faster number-crunching or compile it 
to add the benefit of faster "interpretation". Operation with 
the Pet/CBM is similar. 

68000 SOURCE CODE: 

For Apple II users only, we provide a nearly full disk of un- 
protected 68000 source code. To use it you will have to have 
DOS toolkit ($75) and ASSEM68K ($95), both available from 
third parties. Here's what you get: 

1) 68OO0 source code for our Microsoft compatible floating 
point package, including LOG, EXP, SQR, SIN, COS, TAN, 
ATN along with the basic four functions. The code is set up to 
work either linked into BASIC or with our developmental 
HALGOL language. 85 sectors. 



2) 68000 source code for the PROM monitor. 35 sectors. 

3) 68000 source code for a very high speed interactive 3-D 
graphics demo. 1 15 sectors. 

4) 68000 source code for the HALGOL threaded interpreter. 
Works with the 68000 floating point package. 56 sectors. 

5) 6502 source code for the utilities to link into the BASIC 
floating point routines and utility and debug code to link into 
the 68000 PROM monitor. 113 sectors. 

The above routines almost fill a standard Apple DOS 3.3 flop- 
py. We provide a second disk (very nearly filled) with various 
utility and demonstration programs. 

SWtFTUS MAXIMUS: 

Our last advertisement implied that we sold 8MHz boards to 
hackers and 12.5MHz boards to businesses. That was sort of 
true because when that ad was written the 12.5MHz 68000 
was a very expensive part (list $332 ea). Motorola has now 
dropped the price to$111 and we have adjusted our prices ac- 
cordingly. So now even hackers can afford a 12.5MHz 68000 
board. With, we remind you, absolutely zero wait states. 

'Swiftus maximus'? Do you know of any other 
microprocessor based product that can do a 32 bit add in 0.48 
microseconds? 

AN EDUCATIONAL BOARD? 

If you want to learn how to program the 68000 at the 
assembly language level there is no better way than to have 
one disk full of demonstration programs and another disk full 
of machine readable (and user-modifiable) 68000 source 
code. 

Those other 'educational boards' have AMHz clock signals 
(even the one promoted as having a 6MHz CPU, honest!) so 
we'll call them slow learners. They do not come with any 
significant amount of demo or utility software. And they com- 
municate with the host computer via RS 232, 9600 baud max. 
That's IK byte/sec. Our board communicates over a parallel 
port with hardware AND software handshake, at 71 K 
bytes/sec! We'll call those other boards handicapped 
learners. 

Our board is definitely not for everyone. But some people find 
it very, very useful. Which group do you fit into? 

DIGITAL ACOUSTICS 

1415 E. McFadden, Ste. F 

Santa Ana, CA 92705 

(714)835-4884 



Apple, Applesoft and Apple II are trademarks of Apple Computer Company. Pet is a trademark of Commodore Business Ivlachines.- 
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68000 Shift, Rotate, and 
Bit Manipulation Instructions 



by Joe Hootman 



Our series on 68000 instructions 
continues. Previous detailed 
tables appeared in September, 
November, and December. 

The Shift and Rotate Instructions 

The shift and rotate operations im- 
plemented in the 68000 are delineated 
in table 1. The distinction between 
shift and rotate is that shift does not 
preserve the bits as they leave the 
register except in the carry bit. Rotate, 
on the other hand, cycles the bits 
around the register to the most signifi- 
cant bit position or to the least signifi- 
cant bit position, depending on whether 
rotate is a rotate right or a rotate left. 

Another interesting point is that 
registers can be shifted/rotated any 
number of bits by denoting the bit 
count in a preassigned data register. 
Memory can be shifted/ rotated only 
one bit at a time. This suggests there 
might be a time savings if the data in 
the memory were brought from mem- 
ory to a register location before shift- 
ing. This is true; and if three or more 
shifts are to be done on data in 
memory, it should be put into a register 
for shifting. 



Table of Definitions of Opword 
Foimats foi Shift and Rotate 

i/r = Immediate shift count. The 
shift count is specified by this 
to range between 1 and 8 
shifts. Zero in the count 
register results in a shift of 8. 
The rest of the bits denote a 
shift of 1 to 7. 

i/r = 1 Register shift count. The shift 
count is contained in the data 
register denoted. 

dr = Shift Right 

dr = 1 Shift Left 



Table 1: Shift and Rotate Instructions 

Mnemonic Data Size/CCR Name 



Comments 



ASL 
ASR 



. 8, 16, 32 
CCR 
XNZVC 

* » • ,« • 



Aiithmetic 
Shift, 
Left and 
Right 



The aiithir.etii: shift will shift the bits in the 
destination bv a predetermined number of 
times and the cairy bit receives the list bit 
shifted our. The shift count can be specified 
either by immediate data or by the contents of ,i 
data register 




ASL ^Destination)t fo] 
ASR 

Opword Format 
15 14 13 12 1 1 10 9 S 7 6 S -; 1 2 1 () 

) RcKister 



CI' 



Iccium' dr Size i. r (i 
JRoKisttr I [ [ [ 



1 n 1 1) G 



Rcgiiier Shift' 



"i:'i 



dr I j 1 I Effojtiv; .•\JdrL-s>, 
Modi; I RtKLster 

Memoiv Shili') 

The following effective addressing modes cannot 
be used in the memory rotate: 1. 1, 11, 12. 13, 
14." 



LSI. 
LSR 



8, 16, 3i 
CCR 

XNZ-VC 
« * » &• t 



Logical 
Shift Left 
and Right 



The logical shift will shift the bits in the 
desniiation a predeteimmed number of times 
and the carry bit receives the l:i!>: bit 
shifted out The shift count can be sjccificd 
either by the immediate data or the contents uf a 
data register 



LSI 
LbR 



"cV ttJestinationH o] 



nifa 



'esiination 



1 



Opword Format 
1.T 14 1.^ II 11 in <? ? 7 6 5 4 .5 T ] 

dr 



Count, 
Register 



Size 



1,'r 



RegLster 



Register Shifts 



ll I I 1 (I I I 

. LiXJ- ! L 



nffcciive AJdrcis 
.M'lde I Register 



Memory Shifts 

The following efleciive addressing n.odes cannot 
be used in the memory rotate' 1,2, 11, 12, 13, 
14.' 

(continued) 
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Table 1 (continued) 



Mnemonic Data Size/CCR Name 



Comments 



ROL 
ROR 



8, 16, 32 
OCR 

XNZ VC 
- . . • 



Rotate 

without 

extenstion 



The destination is rotated as indicated below. 
The extension bit is not included in the rotation. 
The number of times the rotate is performed 
can be specified immediately or by data in a 
regi.ster. 



ROL Ic feestinationlf ^ 

r HDestinationt flCl 



ROR 



Opword Format 



15 14 13 12 11 10 


9 


8 


7 


6 


5 


4 


3 


2 1 


1 


1 


1 





Count/ 
Register 


dr 


Size 


i/r 


1 


1 


Register 


Register Rotate 


1 


1 


1 








1 


1 


dr 


1 


1 


Effective Address 
Mode 1 Register 



Memory Rotate 

The following effective addressing modes carmot 
be used in the memory rotate: 1, 2, 10, 11,, 12, 
13, U.* 



8, 16, 32 


Rotate with 


CCR 


extension 


XNZVC 




. . . . 





The bits in the destination will be rotated 
as specified below and the extended bit 
is included in the rotation. The number 
of times the rotation is to be performed is 
specified immediately or by data in a register. 



ROXL K 


t-(Destination(y 








_ f 


m 


ROXR 4 


DestinationH 


C 


Opword Format 


15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 


1 


1 


1 





Count/ 
Register 


dr 


Size 


i/r 


1 





Register 


Register Rotate 


1 


1 


1 








1 





dr 


1 


1 


Effective Address 
Mode 1 Register 












N 


Leu 


aoT) 


fR 


3ta 


te 









The following effective addressing modes cannot 
be used in the memory rotate: 1, 2, U, 12, 13, 
14.* - 



Table 2: Bit Manipulation Instructions 

Mnemonic Data Size/CCR Name Comments 



BCHG 



8,32 


Test a 


CCR 


Bit and 


XNZVC 


Change 



A bit in a particulai bit position can be tested 
and its state reflected in the Z bit of the CCR. 
The state of the bit is changed in the destination. 

Opword Format 
15 14 13 12 II 10 9 8 7 6 5,4 3 2 1 















Register 


1 





1 


Effective Address 
Mode [■ Register 



Register 

The bit ttumber that is to he tested and changed 
is contained in a data register defined by a 
register number in the register field. The 
effective address specifies the destination. 

The following effective addressing modes cannot 
be used: 2, 10, 11, 12, 13, 14.* 

(continuedf 



Size field 

00 - Byte operation 

01 - Word operation 

10 - Long word operation 
Register field — Specifies data register 
to be shifted. 

Bit Manipulation Instructions 

Table 2 describes the bit testing and 
manipulation instructions which exist 
in the 68000. Bit manipulation instruc- 
tions are used to test, test and set, bit 
test and change, or test and reset a bit. 
The result of a test is found in the Z bit 
of the CCR. The bit to be tested is 
specified by a bit number in a specified 
data register or by a bit number in the 
extension word. Notice that BCHG, 
BCLR, and BSET all test bits and then 
may change the state of the bit. These 
instructions do not apply directly to the 
address register. 

Contact Professor Hootman at the 
University of North Dakota, Dept. of 
Electrical Engineering, University Station, 
Grand Forks, ND 58202. 



Jtilprpfiltitg Stiftmarp Y 

presents 
OSI C4P-MF SOFTWARE 




YOU MUST PILOT YOUR WWII VINTAGE 
AIRCRAFT ACROSS A SCROLLING LAND- 
SCAPE AND RESCUE ROW'S IN ENEMY 
TERRITORY. SOME OF THE SMOOTHEST 
GRAPHICS EVER SEEN ON AN OSI! IT 
ALSO USES A NEW TECHNIQUE OF 
USING "LARGE" MULTI-CHARACTER 
SHAPES FOR A REALISTIC GAME, YOU 
WILL REALLY LOVE THIS ONE! PLEASE 
SPECIFY WHETHER YOU WANT JOY- 
STICK OR KEYBOARD OPTIONS, THIS 
GAME IS SO EXTENSIVE THAT IT TAKES 
UP THE ENTIRE DISK! 
ALL THIS FOR ONLY $19,95 

SEND TO: Calil, residents 

INTERESTING SOFTWARE add sales tax 
21101 S. HARVARD BLVD. 
TORRANCE, CA 90501 
(213) 328-9422 
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Table 2 (continued) 

Mnemonic Data Size/CCH Name 



Comments 



Opword Fonnat 
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 















1 














1 


Effective Address 
Model Register 


























Bit number 



Immediate 

The bit number that is to be tested and changed 
is contained in the immediate word following the 
opword. The effective address specifies the 
destination location. The following effective 
address modes cannot be used: 2, 10, 11, 12, 13, 
14.' 



BCLR 8, 32 Test a 

CCR Bit and 

X N Z V C Clear 



The state of a particular bit in the destination 
is tested and its state reflected in the Z bit of the 
CCR. The particular bit is cleared in the 
destination. 

Opword Format 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 







Register 



Effective Address 
Mode I Register 



Register 

The bit number that is contained in the data 
register defines the bit to be tested and cleared. 
The effective address specifies the destination. 
The following effective address modes cannot be 
used: 2, 10, 11, 12, 13, 14.* 

Opword Format 
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 



Effective Address 
Model Register 



Bit number 



Immediate 

The effective address specifies the destination 
location. The following effective addresses 
cannot be used: 2, 10, 11, 12, 13, 14.* 



BSET 



8,32 
CCR 
XNZ V C 



Test a 
Bit and 
Set 



The bit in the destination is tested and the 
state of the bit is reflected in the Z bit of 
the CCR. The specified bit is set in the 
destination. 

Opword Format 

1.5 14 13 12 n 10 9 8 7 6 5 4 3 2 1 















Register 


1 


1 1 


Effective Address 
Mode [ Register 



Register 

The bit number contained in the data register 
specified by the register field is the bit to be 
tested, 

The effective address specifies the destination 
location. The following effective address modes 
cannot be used: 2, 10, 11, 12, 13, 14.* 



15 


Opword 
14 13 12 U 10 9 8 


Format 
76543210 














1 











1 


1 


Effective Address 
Mode j Register 


Bit number 



The effective address specifies the destination 
location and the bit number specifies the bit to 
be tested. The following effective address modes 
cannot be used: 2, 10, 11, 12, 13, 14.* 



Aharoestof 
savings from 




Electronics 



SOFTWARE 



APPLE 'ATAIff'TRSaO' IBM 

A fuBline of sdliware for business, games 
and education up tO 35% crff! 



MUSE 


KJS 


VBICORP 


STOSEWiRE 


OHLTE 


S«SERQISrnC 


EDaWSE 


HAYDEN 


HOWARD 


ANDMAWMORE 



HARDWARE 



AtV^X-'HAOfES- MICROSOFT 

FRANKUN COMPOTER 

SYSTEM 
ACE imO' $1,795.00 



DISKS 



Maxell BoxoflO,5'/i",SSDD $35.00 
Verbatim Boxof 10,514",S&DD $29.00 



MONHORS 



LE i«ilONITORS 


Ust 


Our Price 


9" Green 


$189.00 


$159.00 


12" Green 


$199.00 


$169.00 


ZENITH 






12" Green 


$179.00 


$129.00 



Plus a, full line of AMDEK Monitors 



PRiNTERS 



PAPER TIGER 


Ust 


Our Price 


460G 


$1,094.00 


$950.00 


560G 


$1,394.00 


$1,250.00 


EPSOM 






MX 70 


$449.00 


$395.00 


MX SOFT 


$745.00 


$595.00 


MXIOOFT 


$945,00 


$795.00 



(continued) 



CALLPCHtWISMOmUS SRECML/ 

lr80a835-2246 EXT. 211 

OR 

7024594114 

mmmK SiaOEastOiartestonBlvd. p- v . 
K^r t Suite 5M1 «<.««co,ai 

^^^ LasVfeg^N»ada89122 ' " '-=^ 

Phone orders welcome. Mail orders may send 
charge card number (include expiration date), 
cashiers check, money order or personal check 
(allow ten business clays for personal or com- 
pny checks to clear). Add $3.00 for shippinq, 
nanaling and insurance. Nevada residents add 
5.755S sales tax. Please include phone number. 
Alf equipment is in factory cartonswith manu- 
facturers warranty. Equipment subject to price 
change and availability. Call or write for price list. 
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HYPERCARTRIDGE® 
for ATARI® 400/800 

16K 




$39 

w/o EPROMs/ROMs 

FOR SOFTWARE DEVELOPERS 
AND HOBBYISTS! 

• extend memory of 16K RAM 
and 32K RAM computers 

• create 16K cartridges easily 
with an EPROM programmer 

• combine ATARI® BASIC ROMs 
with your own subroutines 
on ROM/EPROM 

• eliminate need for disk drive 
and extra RAM for lengthy 
programs 



CONFIGURATIONS: 

#1 Any combination of 4 

2532 EPROMs/2332 

ROMs 
#2 Two ATARI ROMs 

and two 2532's (or 

2332's) 
SPECIFY WITH ORDER 



Also order: 

2532 4K EPROMs $7.50 each 

with cartridge order only 

*************************** 

CHAMELEON COMPUTING® 

Dept. of Physics & Astronomy 

Box 119-M 

Dickinson College 

Carlisle, PA 17013 

(717) 245-1717 



Please add: 

$1.50 shipping/handling 

PA residents add 6% sales tax 

CHECK, MC, VISA 

Quantity discounts available 



Table 2 (continued) 

Mnemonic Data Size/CCR Function 



Comments 



BTST 8, 31 Test a 

CCR Bit 

XNZ VC 



The state of a bit in the destination is tested and 
the state of the bit is reflected in the Z bit. 

Opword Format 
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 















Register 


1 








Effective Address 
Mode 1 Register 



Register 

The bit number is specified in the data register 
specified by the register field. The effective 
address specifies the destination location. The 
following effective address modes cannot be 
used: 2, 12, 13, 14.* 

Opword Format 
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 



Effective Address 
Mode I Register 



Bit number 



The effective address specifies the destination 
location and the bit number specifies the bit 
location. The following effective address modes 
cannot be used: 2, 12, 13, 14.* 



•The addressing modes will be covered in future issues. 



MIOX) 



Announcing 
THE GUIDE 

A Complete Guide 
to the Apple Computer 

If You Own the Original 

What's Where in the 

APPLE? 

You Will Want 

THE GUIDE 

only $9.95* 

The Guide provides full explanatory 
text to lead you through the most 
complete Apple memory map ever 
published! 




MICRO makes It easy to order: 
Send check (payable to MICRO) to: 

MICRO INK 
P.O. Box 6502 Chelmsford, MA 01824 

Call our toll-free number: 

1-800-345-8112 

(In PA, 1-800-662-2444) 
VISA and MasterCard accepted 



The Guide explains and 
demonstrates how to use the atlas 
and gazeteer published in the 
original volume! 

*Add $2.00 shipping per book. 
MA residents add 5%. 
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From Here To Atari 



By Paul S. Swanson 



This month's column covers technical 
literature available for Atari com- 
puters. The term technical, of course, 
means different things depending on 
your programming level of expertise. 

For non-programmers who want to 
learn, there is one general book on the 
market that providjes a good introduc- 
tion to programming. This book, Karel 
the Robot by Richard E. Pattis (Wiley, 
1981), was intended as an introduction 
to Pascal, but is well written as an in- 
troduction to almost any computer 
language. 

For those who already know some- 
thing about programming and own an 
Atari computer and a BASIC Language 
Cartridge, there are two good sources. 
One is Atari BASIC by Albrecht, 
Finkel, and Brown [Wiley, 1979), 
which is written to teach you how to 
program in BASIC. The BASIC Refer- 
ence Manual from Atari outlines the 
available BASIC commands and has 
some handy reference tables. One 
table, labeled "Memory Locations," 
provides vectors, shadow locations, 
and hardware locations that you can 
PEEK or POKE for special actions. 
These two books come with the BASIC 
cartridge in a programmer's kit from 
Atari. 

Your next step in acquiring litera- 
ture from Atari is a reference book called 
De Re Atari, which was written by 
several Atari staff members and is 
available at most computer stores that 
carry the Atari. In addition to the fea- 
tures I listed above, this book also ex- 
plains how Atari BASIC uses memory, 
then does the same for the resident 
operating system and disk operating 
system. Other topics include vertical 
blank interrupts, cassette operations, 
television artifacts, and the GTIA chip 
(if you aren't familiar with this chip 
you are in for a pleasant surprise) . 

In the middle of digesting De Re 
Atari, you will probably become in- 
terested in machine language. I know 
of no machine-language book available 
from Atari, but almost any book on the 



6502 should work. I use Programming 
the 6502 by Rodnay Zaks (Sybex, 
1978). Another is Lance Leventhal's 
6502 Assembly Language Program- 
ming, (Osbome/McGraw-Hill, 1979). 

There are other books available for 
Atari computers at the level of De Re 
Atari. Your Atari Computer by Poole, 
McNiff, and Cook (Osbome/McGraw- 
Hill, 1982), is a good example. It covers 
certain features of the Atari and its 
peripherals in more depth and is there- 
fore a good supplement to De Re Atari. 

For even more advanced program- 
mers. Atari publishes the Technical 
User Notes, a combination of the 
Operating System Manual and the 
Hardware Manual. These are strictly 
reference books — don't look for long 
explanations. They are concise descrip- 
tions of all the different system fea- 
tures. BASIC, for example, is not even 
mentioned. The few examples are in 
machine language. 

I have all the above-mentioned 
books within arm's reach of my Atari 
computer, as well as a few reference 
books concerning integrated circuits (I 
also experiment with my own elec- 
tronic circuitry). The Hardware Man- 
ual contains all the wiring diagrams of 
the Atari computer (both the 400 and 
the 800), invaluable for interfacing. 

Talking to Othei Computeis 

One question from a reader reminded 
me of a recent project I embarked upon. 
The question concerned moving data 
from an Apple to an Atari. I recently set 
up communication between my Atari 
and a 6502-based system I built from 
scratch. This allowed me to develop 
the 6502's operating system using an 
assembler on the Atari. I communi- 
cated to and from the Atari through 
game controller ports 3 and 4. Using 
one plug connected at game controller 
4, I set up a serial communication 
through half of one of the two PIA 
bytes. The PIA can be directly accessed 
and programmed through hardware reg- 
isters. A register named PBCTL (for 
Port B control) at location $D303 
(decimal 54019) allows you to set up 
game controller ports 3 and 4 as either 
input, output, or any combination on 



the eight joystick pins. From BASIC, 
POKE 54019,56, then POKE 54017 
with a bit map of which pins you want 
as input and which you want as output. 
For input, use a zero bit; for output use 
a one. Next, POKE 54019,60. The joy- 
stick pins on game controllers 3 and 4 
are now set up the way the bit map 
specified. 

The eight joystick pins are the top 
pins on each game controller jack ex- 
cluding the far right pin on each. The 
Port B byte includes the eight pins on 
jacks 3 and 4. The lowest order bit is 
the top leftmost pin on jack 3; the 
highest order bit is the fourth pin from 
the left on the top row of jack 4, 

If you are working on transmitting 
data from the Apple to the Atari, I have 
another suggestion that will help 
things run faster. The Apple clock runs 
at 1 MHz, but the Atari clock runs at 
about 1.79 MHz; therefore, the Atari 
can process information about 75% 
faster than the Apple. If you have con- 
versions, use the Atari. To get the full 
advantage of the Atari's faster clock, 
write a zero to location $D40E and 
another zero to location $D400. Loca- 
tion $D400 enables and disables the 
different types of direct memory access 
available. Location $D40E enables and 
disables the non-maskable interrupts 
(except SYSTEM RESET). You will 
have no screen display after that. Write 
to $D40E first because $D400 is 
shadowed during the vertical blank in- 
terrupt. The zero in $D40E will stop 
the shadowing and allow access directly 
to the hardware register. It also allows 
an easier method for undoing all that 
disabling. When you have written 
those two zeros out, run the conversion 
routine. When the conversion is done, 
just write a $40 to location $D40E to re- 
enable the vertical blank interrupt. The 
shadowing will re-enable the DMA by 
rewriting the original contents of loca- 
tion $D400. 

In Conclusion 

Future columns will be based on 
letters from readers. If you have any 
suggested topics or questions concern- 
ing the Atari, write me at 97 Jackson 
Street, Cambridge, MA 02140. j^iqjq- 



No. 56 -January 1983 



MICRO - The 6502/6809 Journal 



19 



ARK COMPUTING 



LOWERS THE BOOM 
ON HIGH PRICES 



SPECIALS 

16K Ram Board $79.95 

80 Column Board (Wiz-so) $195.00 

Parallel Printer Interface (w/cabie) $59.95 

(compatible with Pascal, Basic, CP/M) 

Z-80 Softcard $259.95 

Joyport $59.95 

ARK Special $295.00 

(includes Wiz-80, Lazer Keyboard Plus, Lazer 
Lower Case Plus) 

On-Line Systems: General Manager $99.95 

Diskettes w/hubring (10) $19.95 

Hi-Res Secrets $84.95 

Expediter II $59.95 

The Dictionary $69.95 

Microsoft 1 6K Ram Card $99.95 

Time Zone $69.95 

Lazer Keyboard Plus $69.95 

Lazer Lower Case Plus $44.95 

Lazer Lower Case Plus II $19.95 

Anix 1.0 $34.95 

Lazer Pascal $29.95 
Anix-Pac 

(Anix, Pascal, Sources) $99.95 
Using 6502 

Assembly Language $14.95 

Datamost Joystick $39.95 

Datamost Expandaport $49.95 



GAMES 



HARDWARE 



BUSINESS SOFTWARE 



1 2" hi-res green aisplay 

12" lo-fes colof display 

12" hi-res RGB color Oisolav 

AopieCai II 

Apple Clock 

Supeflalker SD2000 

Romplus 

Romwnie.' 

Music System 

A/C4-D/A 

F.Kpansion Chassis (125v) 

CPS Muilrlunctjon Card 

RAM Plus +-[32 RAM boara 

W/16K installed) 
COPYROM 
KeyDoard Filter ROM 
13 Key Keypad (new or old) 
Bar code reader 
So'lkey ( ! 5-key user-cJetin ) 
Asynchronous Serial 
Datamost Joystick 
Oaiamosi E«pandapoft 
MiCfomodem 
Smanmodem iHS-332) 
Lower Case f (Rv 6 & earlierl 
Lowercase* t\ (Rv 7 4 LIr| 
Lower Case+ llHRv 7 & Lin 
Keyooard *Plus 
Character Set+Plus 
Sup R' Term 80-col board 
Sup R' Sw.(cher(pwr suppi ) 
A35 35 track disk drive w/q 

controller 
A35 35-tracK disk drive w/ 

controller 
A40 lO-(rack disk drive w/o 

cnnlroller 
A40 40-lrack disk drive w/ 

controller 
A70 70-tfack disk drive w/o 

coniroller 
A70 70-lrack disk drive w/ 



S2e5 00/t1 59.95 
Sa30 00/«349.95 
$1095 00/9885.95 
$369 00/9329.00 
2^U0uu/Sl9a.uS 
S199 00/9149.95 
$155 00/9124.93 
SI 75 00/9139.95 
$395 00/9295.95 
$350 00/9249.95 
S750 00/S495.OO 
S239 00/91 4g.95 
$189 00/9139.95 

S55 0O/S44.S5 

$55 00/944.95 

$125 00/994.95 

$195 00/9145.95 

$150 00/9119.95 

$179 95/9t29.95 

£59 95/939.05 

$69 95/949.95 

$37900/9289.00 

$279 00/91 90.00 

$64 95/944.95 

$2 <! 95/914.95 

$49 95/934.95 

S99 95/989,95 

$24 95/919.95 

$395 00/9205.00 

$295 00/9195.00 

S4 79 00/9379.00 

$5 79 00/9449.00 

$449 00/9359.00 

$.'v49 00/S449.OO 

S599 00/9499.00 

$699 00/9599.00 



Mail Label 4 Filing System 

Payroll 

General Ledger (w/payat3les| 

Home Money Minder 

The Mail Room 

CPA I Genefal Ledger 

CPA 11 Accounts Receivable 

CPa II! Accounts Payable 

CPA iV Payrnlt 

CPA V Propefly Manage 

The Home Accountant 

Word Star 

Supersorl 

Mail Merger 

Oala Siaf 

S pell's la r 

Caic star 

Visicaic 3 3 

PFStPe'sonal PiiingSysiemi 

PPS Report 

The Corresponaenj 

Mailing L:sl OataDase 

Higher Te^l II 

DirftClory Manaoe' v 2 

Real Estate Analysis Pgm 

Pie WRITER 

Easy Mover nO-column 

Easy Mailer 40-coliimn 

Easy Writer 40-coiumn 

Pro Easy Mailer 

Pro Easy Writer 

Super St:ribe (I 



$74 95/949.95 

S395 00/9295.00 

$495 00/9399.00 

$34 95/924.95 

$34 95/924.95 

$249 95/9199.93 

$249.95/9199.95 

$249 95/9199.95 

$249 95/9109.95 

5249.95/9199.95 

$74.95/954.95 

$375 00/9195.00 

1200 00/124.85 

$125 00/978.93 

$300.00/9195.00 

$200.00/9124.95 

S200 00/91 24,93 

$250 00/9179.95 

$125 00/989.95 

$95 00/999.95 

$59 95/949.95 

$49 95/939.93 

$39 95/929.95 

S29 95/921.95 

30%0fF 

(call for datailt) 

$49 95/939.95 

$69 96/949.95 

$99 95/974.95 

S175 00/S124.85 

$249 95/179.95 

$129 95/979.93 



Softpom Adventure (no grapnics) 

#0 Mission Asteroids 

*1 Mystery House 

*2 Wizard & Princess 

»3 Cranalon Manor 

*4 Ulyesses & the Golden 

Fleece 
#5 Time Zone 
Hi-res Cnbbage 
Ht-res Soccer 
Ht-res lootbali 
Sabotage 
Jawbreaker 
Threshold 
Missle Defense 
Crossfire 
Pegasus 
Warp Destroyer 
Star Chjsier 
Adventure 
Bolh Barrels 
Cyber Strike 
Plianioms Five 
Space Eggs 
Autobahn 
Pulsar It 
Ortmron 
Gamma Goblins 
Gorgon 
Sneakers 
EPOCH 

Cop3 4 Robbers 
Outposi 
Dark Forest 
Beer Run 
Borg 

Joy Pon w/toostiaii 
Hadron 
Twerps 

Computer Foosbad 
Wizardry 
Galaciic Attack 
Minator 

Oylmpic Oecalh/on 
Three Mile Island 
ABM 

Robot Wars 
Global War 
Castle Woilenstein 
Falcons 
Suicide 
Grand Prix 
The Besi ol Muse 
Flight Simulator 
Dungeon Campaign 
Odyssey 

Escape From Arciurus 
Palace in ThundertancJ 
MAO Venture 
Roach Motel 
English SAT #1 
U S Constitution 



$29.95/919.95 
$7 9-95/914.95 
$24.95/919.95 
$32 95/919.93 
$34.95/924.93 
$34 95/924.93 

$99 95/909.95 
$24 95/919.93 
$29.95/919.93 
$39.95/929.95 
$24.95/919.95 
S29.95/919.93 
$39 95/924.95 
$29.95/919.93 
$29.95/919.95 
$29.95/919.95 
$29.95/921.93 
$24.95/919.95 
$29.95/921.93 
$24 95/919.93 
$39 95/929.93 
£29 95/921.95 
$29.95/91 9.93 
$29 95/921 .93 
S29.95/921.95 
$29.95/921.95 
$29.95/919.95 
$39.95/929.95 
$2g.9S/919.95 
534 95/924.95 
$34.95/924.95 
$29.95919.93 
$29 95/91 9.95 
$29.95/919.95 
$29 95/919.93 
$74.95/959.95 
$34 95/924.95 
$29.95/919.95 
$29 95/919.95 
$49 95/939.95 
$29.95/921.95 
S34.9S/924.95 
$29 95/921.95 
$39.95/939.95 
$24 95/919.95 
$3995/929.95 
$2495/919.95 
$29.95/921 .95 
$29 95/921.05 
$29.95/921.95 
$29 95/921.95 
$39 95/929.95 
$33.50/936.95 
$1 750/914.95 
S29 95/121 .95 
$24.95/919.95 
$24 95/919.95 
$24.95/919.95 
$34.95<'92e.95 
$29.95/921.95 
$29 95/921.95 



UTILITIES 



Hl-Rae S*cr«ta(D. Pudg*) 

Super Shape Drg & Animate 

The Creative Tool Box 

Applesolt Compiler 

Datadex 

Using 6502 Assembly Lang 

ANIX (UNIX-like Oper sys] 

Lazer Pascal 

DOSOURCE 3.3 

Painter Power 

The Voice 

E-Z Draw 

Pascal Graphics Editor 

ACE 

Apple- DOC 

List Master 

ASCII Express 

Z-Term (req s Z-80 Carol 

Z-Term Pro 

Speed Star 
On-Line 
OB Master 



S124.V5/9B4.95 

$34.95/924.95 
$44 95/934.95 
$175 00/129.95 
$15000/999.95 
$19 95/914.95 
$49 95/939.95 
$39 95/929.95 
$39.95/924.95 
S39 95/929.95 
$39 95/929,95 
$49 95/939.95 
$99 95/989.95 
S39 95/929.95 
$49 95/939.95 
$39 95/929.95 
$79 95/959.95 
$99.95/999.95 
$149 95/999.93 
$134 95/999,95 
$89.95/999.95 
$229.00/9159.95 



Upper Reaches ot Apshai 

The Keys lo Acheron 

Datestonesot Ryn 

MOrloc'S Tower 

Hicochel 

Slardeet Orion 

Invasion Onon 

The Dragon's Eye 

Tues Morning Quarterback 

Jabbenaiky 

Sorcerer ol Siva 

Rescue at Rigel 

Crush, Crumble, and Chomp 

Temple ol Apshai 

Helllire Warrior 

Star Warrior 

Hi-res go 1 1 

Race lor Midnight 

Midnight Music 

Star Blazer 

Apple Panic 

Space Quark 

Red Alert 

Track Attack 

Genetic Onft 

Arcade Mactime 

Raster Blaster 

Trilogy of Games 

Space Album 

Fender Bender 

3-D Graphics 

Akalatieth 

Appleoids 

Ultima 

LA Land Monopoly 

Hyperspace Wars 

3-D Skiing 

Torpedo Terror 

Computer Bingo 

Kaves Karkhan 

Dragon Fire 

Rings 0/ Saturn 

Alkemstone 

Snack Attack 

Casino 

Thiel 

County Fair 

Swashbuckler 

Fireb-rd 

Russki Ouck 

Honzon V 

Sargon II 

Reversal 

Zork 

Zork H 

Pool 1 5 

Shult.'eDoard 

Trick Shot 

Crossword Magic 

Master Type (hi- res) 

Dogfight 

Crown o' Arlhain 



$19 95/913.93 

$19.95/913.95 
$1995/915.95 
$1995/915.95 
$19.95/915.93 

$24.95/19.93 
$24.95/919.93 
$24 95/919.99 
$29 95/921.93 

$29.95/21 .93 
$29 95/921.95 
$29.95/921.95 
$29 95/921 .95 
$39 95/929.93 
$39 95/929.95 
$39.95/929.95 
$29.95/921.95 
$29 95/921.93 
$34.95/924.93 
S31. 95/924.95 
S29.9S/919.99 
$29.95/919.93 
$29 95/919.95 
$29 95/919.95 
$29 95/919.95 
$44 95/929.95 
$29.95/921 .93 
$29.95/921.95 
$39.95/929.95 
$24.95/919.95 
$39.95/929.95 
$34.95/924.95 
$29.95/921 .95 
$39.95/929.95 
$29 95/921.95 
$29.95/921.95 
$24 95,^19.95 
$24.95/919.95 
$2^95/919.95 
$49 95/S34..g5 
$49 95/934.95 
$39.95/929.95 
$39 95/929.95 
$29 95/919.95 
$39 95/924.93 
$29.95/919.95 
$29.95/919.95 
$34 95/924.95 
$29 95/919.95 
$34 95/925.95 
$34 95/925.95 
$34 95/925.95 
$34.95/925-95 

$39 95/929.95 
S34 95/924.95 
$29 95/921.95 
$39 95/929.95 
$49 95/939.95 
$39 95/929.95 
$29 95/921.85 
$34 95/926.95 



UTILITIES 



LISA v2 5 

LISA Eoucational Pack 
Speed/ASM 
Expediter II 
Disk Organizer II 
Appiesoli Plus 
Appieso'i Optimizer 
Disk Recovery 
Mulli-disk Cata.iog 
Back ii up 
Image Prmler 
Pascal Lower Case 
Dos Plus 

The Original Quick Loader 
Typing Tutor 
Fortran 
A.LDS 

Basic Compiler 
CotDOl 
TASC 
J)ata Plot 
DB tjtiliiy Pack 



$79 95/959.95 
$1 19 95/979.95 
$39.95/929.95 
S99 95/958.95 
$29 95/»-^1.9i 
$2495/919.95 
$24 95/91 9.95 
$29 95/921.95 
$24 95/919.95 
$59 95/939.95 
$29 95/939.93 
$24 95/919.95 
$24 95/918.93 
$2^95/919.95 
$24.95/919.95 
$195 00/9139.95 
$i25 00/9ag.95 
$395 00/9205.00 
$750 00/9495.00 
$175 00/9129.95 
$59 95/944.95 
$99 00/969.95 



Wb accept: MASTERCARD, VISA (Include card § and exp/ratlon date), CASHIER or CERTIFIED CHECKS, MONEY ORDtHS, or PERSONAL CHECKS (Please allow 10 

days to clear). 

Plaase add 3% For shipping & handling (minimum i2.00y Foreign orders please add 10% tor shipping & handllno. 

We eccapt COD s (Please Include $2.00 CODcharQe). California residents add 6Vt sales lax. All aquipmerit la 3ub|ect to price change and availability without notici. All 

equipment Is new & complete with menufacturer's warranty. 

Apple Is a registered Irademark of APPLE COMPUTER INC. 
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Discrete Event Simulation 

in Pascal 



by Anita and Bill Walker 



This article explains some of the 
techniques used in simulating 
real-world situations on the 
computer. An example program 
involving a queue is presented. 



Program Bank 

requires: 

Pascal 

Intioduction 

What is computer simulation? Intui- 
tively, we suggest that it is the act of 
causing a computer to imitate a real- 
world situation so that you can analyze 
the effects of changing portions of the 
environment in that sitiiation. Ideally 
this process will be sufficiently ac- 
curate to allow you to make manage- 
ment decisions without performing ex- 
periments to test the idea. The Apollo 
moon-landing trips were extensively 
simulated before the first mission, pro- 
viding valuable insight into possible 
difficulties without risking loss of 
hardware or personnel. 

One method of providing answers 
to hypothetical questions in a simula- 
tion is to observe the situation in ques- 
tion for a specific interval and take 
notes. A less time-consuming method 
is to program the computer to emulate 
the situation and answer the questions 
for you. Although this process rarely 
gives exact answers, it is possible to 
use the computer to gain valuable in- 
sight. This tutorial discusses some of 
the techniques used in discrete event 
simulation. (Do not expect the results 
to be the gospel truth.) It also suggests a 
few tools that might be useful to the 
simulator and provides an example. 

How Do Discrete Simulations 
Woik? 

A simulation that emulates a 
physical system can be programmed for 



the computer. Within this system are 
various events that occur at particular 
points in time and affect the physical 
system in predictable ways, often gen- 
erating additional events. To emulate a 
physical system, you must first specify 
a list of possible events. This is a 
crucial part of the process and will be 
discussed later in more detail. 

As the events are generated, they 
are placed in a line called the event list, 
which is maintained sequentially. 



Think of the event list as being sorted 
according to increasing values of time. 
Suppose the list contains three dif- 
ferent types of events. It is ordered ac- 
cording to time, not type, so it may be 
possible for several events of one type 
to occur before an event of another type 
occurs. Figure 1 is a flowchart of a 
typical control program and, in effect, 
oversees the simulation process. 

After initialization, select an event 
from the event list and perform the ac- 



Flgure 1 



r BEGIN ^ 


1 


r 


INITIALIZE 





GET AN E.ENT 
FROM THE FRONT 
OF Tht EvENT LIST 




PERFORM A 
TYPE 1 EVENT 



PERFORM A 
TYPE 2 EVENT 



PERFORM A 
TYPE 3 EVENT 



c 



COLLECT 
STATISTICS 



END 
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tions dictated by the type of event until 
the simulation is over. Keep notes on 
the effect of the actions. The actions 
you perform often generate more 
events that are added to the event list 
by order of increasing time. After the 
run is completed print the statistical 
results and conclude the program run. 
We discuss each portion of this 
flowchart in detail and develop utility 
procedures that allow you to actually 
write a program based on figure 1 . 

Tools for Simulation 

To formulate a sample program you 
must first develop several tools to use 
in the discrete simulation program. 
This section explains two such tool 
packages: 1. managing the event list, 
keeping the events in increasing order 
of time, getting the next event from the 
list, and properly adding new events in 
the list; and 2. discussing various ran- 
dom (actually pseudo-random] number 
generators, emphasizing the generation 
of numbers on 8-bit machines (with the 
possibility of expanding the generators 
to run on other machines). 

The Event-List Managei 

The event-list manager consists of 
several procedures designed to handle 
the event list. Remember, the event list 
consists of a series of events kept in 
chronological order (for this example] . 
If a new event is created with a sched- 
uled time of occurrence, it must be 
placed properly among the other events 
already in the list. The important thing 
to remember is that when the new 
event is inserted into the list, the list 
still must be in chronological order. 

You may insert events anywhere in 
the event list but, typically, events are 
removed from the list one at a time and 
from one end of the list only. In other 
words, when you reach the point for an 
event to occur, that event is removed 
from the front of the list and a pro- 
cedure is executed to carry out the ac- 
tion dictated by that event. 

In this discussion, we maintain a 
linked list, using pointers, which con- 
tains the events of a simulation in 
chronological order. Two procedures 
are necessary; SCHEDULE, which in- 
serts an event into its proper place in 
the event list, and GETEVENT, which 
removes the next (front) event from the 
event list. To facilitate writing the pro- 
cedures, we define an event as a Pascal 
record structure with three fields. One 
of the fields is linked to the next event, 



and the other two fields contain the 
time the event occurred and the type of 
event. Although it is not necessary to 
do so, we use several global variables to 
implement our event-list manager. 
One of these is HEAD, which is a 
pointer that returns NIL if the event list 
contains no events. 

The procedure SCHEDULE (see 
listing 1] schedules events properly in- 
to the event list. Procedure GET- 
EVENT is a procedure that returns the 
type of event and its scheduled time of 
occurrence at the front of the list as 
well as deletes that event from the 
event list. We make use of the event 
type in the control program. It is possi- 
ble to rewrite these procedures as func- 
tions, but we prefer the method chosen. 

Random Number Genemtois 

The function RND (see listing 1) 
generates a sequence of pseudo-random 
numbers on most 8-bit machines that 
is distributed almost uniformly be- 
tween the values of and 1. Pseudo 
random means the numbers are not 
truly random numbers, but depend in 
some manner on each other. If you start 
with the same value for SEED each 
time, you will get the same sequence of 
numbers. However, distribution of the 
numbers is more important than true 
randomness. Uniform distribution 
means that a number is likely to fall 
equally anywhere between and 1 . The 
function (unfortunately) produces a 
numerical sequence that repeats itself 
every 64 numbers. If you are using a 
longer word length for your machine, 
you can arrange the function to produce 
longer sequences before it repeats itself. 

The function RNEXP is used to 
generate numbers with an exponential 
distribution whose average is "U". 
This distribution is often more useful 
in simulation than the uniform 
distribution of RND. Since the function 
RNEXP depends on the function RND, 
the exponential distribution generator 
will also repeat after a short sequence. 
If you have a random- number generator 
available for your machine, the func- 
tion RNEXP can be used directly. 

Other Tools 

Other necessary tools include pro- 
cedures to accomplish an action 
demanded by an event to keep statistics 
on the state of the system after each 
event, and to report the final results of 
the simulation. These tools are ex- 
ceedingly sensitive to the nature of the 



actual system being simulated and, as 
rule, cannot be generalized. 



How to Write a Simulation Program 

Although each simulation program 
is different, it is possible to make a few 
general statements. First, an event is 
something that causes the state of a 
system (a set of data) to change. Note 
that we are talking about discrete 
simulations only. For example, con- 
sider the case of a line of people waiting 
for service at a bank teller's window. At 
any given point in time the system 
state is completely described by count- 
ing the number of people in the line. 
The state changes when someone joins 
the line or when someone departs. You 
might describe the state of the system 
by saying "There are ... people in the 
line." Proper events cause the state to 
change. In this case those events are 
identified as ARRIVE and DEPART. 

It is important to specify the proper 
events for a simulation when writing a 
useful program. If an event is hidden or 
overlooked, you may get meaningless 
results. If too many events are 
specified, programming may be awk- 
ward or even impossible. 

After you have chosen the events for 
a simulation you must identify the 
characteristics [parameters) you want 
to measure. Parameters are part of the 
state of the system and should be 
things that are affected by the events. A 
typical parameter for the bank window 
example would be a measurement of 
the average length of the customer line. 
This length is affected by two events 
only — ARRIVE and DEPART - and 
the length does not change until one of 
these events takes place. 

In the flowchart of figure 1 the pro- 
cedure COLLECT STATISTICS keeps 
running totals of the state variables 
[parameters) measured. Consequently, 
design of this procedure depends upon 
what those state variables are. 

Another portion of the program 
called an event procedure accomplishes 
the action(s) demanded by a particular 
event. In the above example you might 
use such a procedure to add a person to 
the end of a line (corresponding to the 
event ARRIVE) or remove a person from 
the front of the line (corresponding to 
the event DEPART). 

Finally, the report section should 
present a summary of the statistics that 
you collect with the procedure COL- 
LECT STATISTICS. 

(Text continued on page 25) 
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Program Bank 



program bank (input, output); 
uses transcend, applestuff; 
{ this is an APPLE statement. Other computers 
can probably omit this statement entirely } 
const starttime = (3; 

endtlme = lAA^^; { A hours in seconds } 
uariv = 50.(3; { average interarrival time } 
userv = 4-0.0; { average service time } 
type ptr = tevent; 
event = record 

eventtype : char; 
eventtlme : Integer; 
link : ptr; 
end; 
var kindofevent : char; 

departcount , arrivecount , queuelength , 
maxqueuelength, time, oldtime, 
oldqueue length, eventcounter : integer; 
timequeuelength : real; 
head,p,oldptr,q : ptr; 
function rnd (list; Integer); real; 
var X ; real; 
begin 

{ This function should be replaced by 

an appropriate function for your system. 
It's purpose is to generate uniformly 
distributed random numbers between and 1 } 
X := random; 

{ if we want the first list, access the generator 
a second time to try to remove some bias } 
If list = 1 then X := random; 
{ be sure not to generate as a number, since 

the function RNEXP below would blow up } 
if X = then x := x + 1; 
rnd := X / 32767; 
end; 

function mexp(list; integer; u : real) : real; 
begin 
{ This is a pseudo-random number generator for 
generating exponentially distributed pseudo- 
random numbers with an average value of u. 
It depends greatly on function RND above, and 
if RND repeats its sequence of numbers fairly 
often, so will this function } 
{ this function selects random numbers from 
two different lists which are generated by 
RND above } 
rnexp := (-u)xln( rnd (list) ) ) ; 
end; 
procedure getevent (var typeofevent : char; var newtime : integer); 
{ this procedure gets the next event from the 

event list } 
begin 
if head < > nil then 
begin 
typeofevent ;= headt. eventtype; 
newtime ;= headt. eventtlme; 
head := headt. link; 
end; 
end; 
procedure schedule (typeofevent : char; newtime : integer) ; 
{ this procedure enters a new event into the event list } 
var quit : boolean; 
begin 
{ first we create the new event and initialize it } 
new ( q ) ; 

qt.link := nil; 
qt. eventtlme := newtime; 
qt. eventtype := typeofevent; 
{ now we place the new event in its proper place 

in the event list } 
if head = nil then head := q 
else 
begin 
if (newtime < headt. eventtlme) then 
begin 
qt.link := head; 
head := q; 
end 



Program Bank (conunued) 



else 

begin 
p := head; 
quit := false; 

while ((pt. eventtlme <= newtime) and 
(quit = false)) do 
begin 
if pt.link = nil then 
begin 

pt.link := q; 
quit := true; 
end 
else 
begin 
oldptr := p; 
p := pt.link; 
end; 
end; { of the while } 
if quit < > true then 
begin 
oldptrt.link := q; 
qt.link := p; 
end; 
end; 
end; 
end;{ of schedule } 
procedure initialize; 
var newtime : Integer; 
begin 
departcount := 
arrivecount : = 
queuelength : = 
maxqueuelength := 0; 
time := (3; 
oldtirae := (3; 
oldqueue length := 0; 
eventcounter := 0; 
time := 0; 

timequeuelength := 0.0; 
head := nil; 
p := nil; 
oldptr := nil; 
q := nil; 

{ schedule the initial event } 
newtime ;= time + round (mexp(l,uariv)); 
schedule ( 'a',newtime) ; 
{ randomize the random number generator— 

this is how to do it on the APPLE } 
randomize; 
end; 
procedure statistics; 
{ this collects the statistics } 
begin 
( if you want LOTS of output, you can 

remove the comment symbols around the 
following; } 
{ if kindofevent = 'a' then write ('arrival ') 
else write ( ' departure ' ) ; 
writeln ( ' at ',time, ' seconds'); } 
{ update the event counters } 
eventcounter ;= eventcounter + 1; 

if kindofevent = 'a' then arrivecount := arrivecount + 1 
else departcount ;= departcount + 1; 

{ update the queuelength } 
if maxqueuelength < queuelength then 
maxqueuelength := queuelength; 
{ update the time averaged queuelength } 
timequeuelength := timequeuelength + 

(time - oldtime ) x oldqueue length; 
{ update the accumulation stuff } 
oldqueue length := queuelength; 
oldtime := time; 
end; { of statistics } 
procedure makereport; 
[ this procedure reports all of the results } 



(Continued on next page) 
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the maximum length of the queue was ' ) ; 

',maxqueuelength, ' people, and the'); 
time-averaged queue length was ' ) ; 

',tlmequeuelength/(endtlme-starttlrae); 1(3:2, ' 



Program Bank (continued) 



begin 

writeln (ohr{7),ohr(7)); 
writeln ; 
writeln ( ' the sljnulation was run for ' , 

(enatlme-atarttlme)/6|3 :1(3:2, ' minutes '); 
writeln; 

writeLi ('there were ',eventoounter, ' events with '); 
writeln (' ' ,arrivecount, ' arrivals, and '); 
writeln (' ' , departcount , ' departures.'); 
writeln; 
writeln ( ' 
writeln ( ' 
writeln ( ' 
writeln { ' 
writeln; 
end; 

{ In a more elaborate program, the following two 
procedures may actually handle a queue. Instead 
of simply updating a counter } 
procedure addtoqueue; 
{ this adds people to the waiting line ] 
begin 
queuelength := queuelength + 1; 
end; 
procedure popqueue; 
{ this deletes people from the waiting line } 
begin 

if queuelength > (3 then queuelength := queuelength - 1; 
end; 

{ the following procedures are the 'event procedures ' ] 
procedure service; 
{ this procedure, while not properly an 'event', provides 
service to a customer if it Is needed. It Is called 
by the events ARRIVE and DEPART } 
var newtlme : integer; 



people ' ) ; 



Program Bank (continued) 



begin 
if queuelength <> 9 then 
begin 
schedule ( 'd' ,newtime); 
end; 
end; 
procedure arrive; 
var newtime : integer; 
begin 
addtoqueue ; 

newtime := round ( me xp(l,uariv)) + time; 
schedule ( 'a', newtime); 
if queuelength = 1 then service; 
end; 
procedure depart; 
begin 
popqueue; 
service; 
end; 
begin { main program } 
initialize; 

while time < = endtlme do 
begin 
getevent (klndofevent.time); 
case kindofevent of 
'a' : arrive; 
'd' ; depart; 
end; 

statistics; 
end; 
makereport; 
end. 



EVER WONDER HOW YOUR APPLE II WORKS? 

QUICKTRACE mil show you! And it can show you WHY when it doesn't! 

This relocatable program traces and displays the actual machine operations, while it is running and 
without interfering with those operations. Look at these FEATURES: 



SinglB-Stmp mode displays the last instruction, 

next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 

Tr^cB mode gives a running display of the Single- 
Step information andean be made to stop upon 
encountering any of nine user-definable 
conditions. 

Background mode permits tracing with no display 
until it is desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
itions is met, which causes the program to return 
to Single-Step. 



QUICKTRACE allows changes to the stack, 

registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
information. All this can be done in Single-Step 
mode while running. 

Two optlormt dfmpley format* can show a sequence 
of operations at once. Usually, the information 
is given in four lines at ttie bottom of the screen. 

QUICKTRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 



QUICKTRACE is relocatable to any free part of 

memory. Its output can be sent to any slot or to 
the screen. 

QUICKTRACE is completely compatible with 

programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can tie bypassed.) H will display the 
graphics on the screen while QUICKTRACE is 
alive. 

QUICKTRACE is a beautiful way to show the 

incredibly complex sequence of operations that 
a computer goes through in executing a program 



Price: SSO 

QUICKTRACE was written by John Rogers. 
QUICKTRACE IS a trademark of Anthro-Digital. Inc. 



QUICKTRACE requires 3548 (5E00) bytes (14 pages) of memory and some ttnowledge of machine language programming, 
it will run on any Apple II or Apple II Plus computer and can be loaded from disk or tape. It is supplied on disk with DOS 3.3. 



QUICKTRACE DEBUGGER 





t^st address 




Dluttembly 


La$t Instruction 


FFA9- 


A9 A A 


LDA 


#$AA 






Top seven bytes of stack 


Processor codes User defined location S Conte 


Stack 


ST = 7C 


Al 32 05 


43 D4 CI 


MV-BDIZC 0000^-4C 




Accumulator 


Xmt. Ymg. 


Stack pointer 




Contents 


A~AA 


X-9S Y-25 


SP-F2 F-'S: 


= 10110001 []=^DD 








Dltattembfy Rafennca addn$t 


Next Instruction 


F"F'6B- 


85 33 


STA 


$33 [$0033] 



Anthro-Digital, Inc. 

P.O. Box 1385 
Pittsfield, MA 01202 
413^48-8278 
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In the following section we 
simulate the classic bank line problem. 
The example is instructive and pro- 
vides an opportunity to apply several of 
the concepts we have discussed. 

The Example 

In this example we make several 
assumptions: 1. the waiting line is a 
queue (no one butts in, no one leaves 
early), service takes place at the front of 
the line only, and new arrivals join the 
end; 2. arrivals occur with an exponen- 
tial distribution interarrival time of 50 
seconds; and 3. the time it takes for the 
teller to serve a customer is also ex- 
ponentially distributed with an average 
time of 40 seconds. 

The next step is to measure the 
state variables (parameters); in this 
case, the average length of the line and 
the longest length of the line. 

Listing 1 provides a simulation of 
the bank-line situation. The program 
can be adapted to most single-server 
queue systems, although it probably 
will be necessary to change the 
characteristics of the pseudo-random 
number generators to suit other 
physical situations. The exponential 
distributions used here are not 
unrealistic for this situation. The 
listing is written in UCSD Pascal on an 
Apple II. {Note: there are many 
languages available for simulation pro- 
grams. We chose Pascal as the most 
commonly available language suitable 
to the hobbyist.) With other versions of 
Pascal you could take advantage of the 
dispose function of standard Pascal. 
The program runs to completion in 
about three minutes for a four-hour 
simulation, with a typical event count 
exceeding 500. 



How to Make Use of the 
Simulation Piogiam 

Run the program many times so the 
random-number generators provide dif- 
ferrent sequences of events each time. 
(This is usually accomplished simply 
by changing the SEED of the function.) 
Each run of the program provides a 
number that represents the maximum 
length of the queue during that run. If 
you run the program ten times, you 
have ten different numbers. An average 
of these numbers gives you meaningful 
data about what to expect from the ac- 
tual physical situation. The results of a 
single simulation run, however, are 
unlikely to provide much information. 



Figure 2 
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A powerful theorem in mathematics. 
Central Limit Theorem, allows you to 
draw some meaningful conclusions by 
examining the averages of several pro- 
gram runs. The usual procedure is to 
form a confidence interval for the 
parameter that you choose to measure. 
We have presented a summary for the 
example problem in figure 2. 

Mathematical Analysis 

The programmer should be aware 
that the results obtained from the 



discrete simulation process are at most 
good approximations to the results ob- 
tained in the real situation itself. It is 
gratifying, however, to solve the simu- 
lation problem using analytic methods 
and to discover just how accurate these 
approximations are. Analytic solutions 
are not always obtainable and hence 
the need for simulations. 

In the following pages we use 
mathematics to investigate the bank- 
line simulation. You should become 
familiar with the notations and ter- 
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minology used. Queuing time is the 
total time that a single customer is in 
the system. This time begins when the 
customer arrives at the end of the line 
and stops when he leaves the line after 
being served. Waiting time is the time 
between arrival and service. Use the 
following notations; 
Tj = average lapse of time between 

the arrivals of two consecutive 

customers 
X ~ average arrival rate of the 

customers, given by the formula 
A = 1 / T, 
Tj = average time needed to serve one 

customer 
li = average service rate for each 

customer, given by 
M = 1 / T, 
I = intensity of customer traffic, 

given by any of the following: 
I = T3 / T, = AT, = A/m 
Q = the amount of time a single bank 

teller needs to serve a customer 

(usually a decimal or a percentage) 

The following averages are useful 
when certain distributions and prob- 
abilities are difficult to obtain: 
Lq = the average number of customers 

in the system (length of the queue) 
L„ = the average number of customers 

in the waiting line 
Tq = the average queuing time 
T,, = the average waiting time 

In this example the values which 
determine T^ and T^ are exponentially 
distiibuted. (Consider the exponential 
curve y = e''. Each service time (t) 
achieved in the problem lies on the ex- 
ponential curve. Hence, every t is 
shown as t = e" for some number x [x 
real). The typical time needed to serve 
one customer (TJ is obtained by 
averaging a large number of individual 
service times of less than 40 seconds 
with a small number of service times of 
more than 40 seconds. Thus, the 
average service time (T^ = 40 seconds) 
is represented by the horizontal line t 
= 40. The average time between the ar- 
rival of two consecutive customers (T^ 
= 50 seconds) is represented by the 
line t = 50. 

Given all the above, you can 
evaluate the desired quantities and 
compare them to your computer 
results. You can see immediately that 
T^ = 50 seconds and T^ = 40 seconds 
(given quantities) lead to the results: 
X = 1/50, which means that on the 
average one person arrives every 50 
seconds, and 
fi = 1/40, which means that on the 



Figure 3: Analytic versus Computed Results 



AVERAGE QUEUE LENGTH 

INDICATED BY LISTING ONE 4.02 

AVERAGE QUEUE LENGTH 

COMPUTED ANALYTICALLY 4.00 

PERCENTAGE DIFFERENCE V2 % 



average one person is served every 40 
seconds, and 
I = 40/50. 

If I is less than 1, that indicates the 
bank teller is serving faster than the 
customers are arriving. A traffic inten- 
sity greater than 1 indicates the teller is 
serving slower than the customers are 
arriving. 

We define q in the following way: a 
long period of time is represented by 
Tl, the number of customers arriving at 
the system by n = T^ / T^, and the 
total service time by nT,. Therefore, 
the time that the bank teller is busy is 
C = nT, / Tl = nT, / nT, = T, / T, 
Here q = 40/50 = 4/5. The teller is 
busy 4/5 of the time (Tl). 

The formula for the quantity L^ is 
Lq = (A^bi) /2(l-c) ) + c where 
bn = n! T,'' 

If you evaluate this expression you 
learn that L^ = 4.0 for this simulation. 
You also have L^^, = L - q, which 
calculates as L„ = 3.2. Similarly, 
Tq = [Abi / 2(1 -c) 1 +bi evaluates to 
Tq = 200 seconds. T.^ is given by 
T,, = Abi / 2{1-q], and evaluates to 
160 seconds. Note that the average 
queuing time is equal to the average 
waiting time plus the average time 
needed to serve one customer. 

Figure 3 compares the results of the 
analytic investigation with the 
numbers obtained from the computer 
simulation. They seem to agree with 
each other in a reasonable fashion. 

Conclusions 

Although the science of simulation 
is rather complicated, we are able to 
draw some meaningful results from 
discrete-event simulation techniques. 
Hopefully, you will study these tech- 
niques further. If you do not, perhaps 
this article will serve to give you a 
speaking acquaintance with some of 
the procedures involved. 
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Li;co Computer Marketing & Consultants 



TO ORDER 

CALL US 



TOLL FREE 800-233-8760 

In PA 1-717-398-4079 



ATARI 

SPECIALS 



810 Disk Drive ...$429.00 

32K RAM $ 79.00 

40032KRAM ...$179.00 



800 48K... $539.00 



PERCOM : In Stock 

single Drive CALL 

Dual Drive CALL 

(Rud all Atari Disks) 



PRINTERS 

OKidata82A »479.00 

OKidata83A $719.00 

OKidata 84 $1 088.00 

CItoh CALL 

Prowritar I .$499.00 

Prowrltar II CALL 

SMITH CORONA TP-1 .$625.00 

NEC CALL 

(Interfacing Availablel 

JOYSTICKS : In Stock 

Atari CX-40 $18.00 

LeStIcK $34.00 

WIco Command Control $24.00 

WICO RED BALL $27.95 

STICK STAND * 6.75 

Computer Covers 

**" $6.99 

*» $6.99 

'^° $6.99 

DISKETTES : In Stock 

Maxell MD1 . . .(10) $34.00 

Maxell MD2 .. .(10) $44.00 

Elephant . . .(10) $21.00 



THIRD PARTY SOFTWARE 
ATARI PROGRAM EXCHANGE 

Eastern Front 1 941 ...$25.50 

Avalanche ..$15.50 

Outlaw/Howitier . (15.50 

Dofl Oaie , $15.50 

Wizard o( War $31 .00 

Gort $31.00 

Frogger $26.00 

BUSINESS SOFTWARE : In StocK 

Atari Word Processing $109.00 

Letter Perfect $ 1 29^00 

TestWizzard j gg qq 

Data»am/65 $125.00 

'"••"i'P $125.00 

MonKay Wrench ^ 42 00 

Utility Disk $ 36. so 

Ultimate Renumber $ 15.50 



ATARI HARDWARE 

41 Cassette Recorder . . $75.00 

825 Printer $5S5.00 

830 Phone Modem SI 49.00 

850 Interface $164.00 

PACKAGES 

CX481 Entertainer $69.00 

CX482 Educator $1 25.00 

CX483 Programmer $49.00 

CX4tf4 Communicator $325.00 

SOFTWARE 

CXL401 2 MISSILE COMMAND $28.75 

CXL4013 ASTEROID $28.75 

CXL4020 CENTIPEDE $32.75 

CXL4022 PACMAN $32.75 

CXL401 1 STAR RAIDER $34.75 

CXL4004 BASKETBALL $26.75 

CXL4006 SUPER BREAKOUT $28.75 

CXL4008 SPACE INVADER $28.75 

CX6130 CAVERNS OF MARS $31.75 

CX4108 HANGMAN $1 2.75 

CX41 02 Kl NGOOM $12.75 

CX4112 STATES S CAPITALS $12.75 

CX4114 EUROPEAN COUNTRIES. $12. 75 

CX41 09 GRAPHIT $1 6.75 

CX41 21 ENERGY CZAR $1 2.75 

CX41 23 SCRAM $1 9.75 

CX4101 PROGRAMMING I $19.75 

CX4106 PROGRAMMING II $22.75 

CX4117 PROGRAMMING III $22.75 

CXL401 5 TELELINK $21 .75 

CX4119 FRENCH $39.75 

CX41 1 8 GERMAN $39.75 

CX41 20 SPANISH $39.75 

CX41 20 SPANISH $39.75 

CXL4O07 MUSIC COMPOSER $33.75 

CXL4O02 ATARI BASIC $45.75 

CX81 26 MICROSOFT BASIC $65.75 

CXL4O03 ASSEMBLER EDITOR $45.75 

CX8126 MACROASSEMBLER $69.75 

CXL401 6 PILOT HOME $65.75 

CX405 PI LOT EDUCATOR $99.75 

CX415 HOME FILING MANAGER $41.75 

CX414 BOOKEEPER $119.75 

NEW RELEASES 

CHOP LIFTER $27.75 

APPLE PAN IC $23.75 

PREPPIE $1 9.95 




THIRD PARTY SOFTWARE 

tor atari 800 or 400 

KBYTE 

KRAZY SHOOTOUT $35.00 

KDOS $65.00 

K-STAR PATROL $37.75 

KRAZY ANTICS $37 75 

KRAZY KRITTERS $37 75 

0-BALL JOYSTICK KIT $6 75 

AUTOMATIED SIMULATIONS 

Star Warrior $28.00 

Crush. Crumble A Chomp $23.00 

WE CARRY MANY OTHER THIRD PARTY PRODUCTS 
YOU CAN CALL FOR PRICES ON AND ASK FOR 
YOUR FREE ATARI PRODUCT CATALOG. 



POLICY 

In-Stock items shipped within 24 hours of order 
J Personal checks require four weeks clearance 

before shipping . PA residents add sales tax. 
j All products subject to availability and price 
I change. Add 4 % (or Mastercard and Visa. 



VIC-20 $189.00 

VICI 530 DATASSETTE $67.00 

VICI 540 DISK DRIVE $499.00 

VICI 51 5 PRINTER $355.00 

VICI 210 3K RAM $35.00 

VIC1110 8K RAM $52.00 

VICI 211 A SUPER EXPANDER $53.00 

VIC'20 SOFTWARE 

VICI 21 2 PROGRAMMER AID $45 00 

VIC1213 VICMON (45.00 

VICI 906 SUPER AUEN (23 00 

VIC1914 ADVENTURE 

LAND ADVENTURE (35.00 

VICI 91 5 PRIVATE COVE 

ADVENTURE $35.00 

VICI 91 6 MISSION IMPOSSIBLE $35. 00 

VIC1917 THE COUNT ADVENTURE . $35.00 

VIC1919SARGON II CHESS $35 00 

THIRD PARTY SOFTWARE 

ALIEN BLITZ $21 00 

Omega Race $35.00 

Gort $32.00 

16K RAM/ROM $99.00 

AMOK $21 00 

SUPER HANGMAN $1 6.00 

SPIDERS OF MARS $45.00 



TO ORDER 
CALL TOLL FREE 

800-233-8760 

In PA 1-717-398-4079 

or send order to 

Lyco Computer 

P.O. Box 5088 

I Jersey Shore, PA 1 7740 
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Doing Time on tlie 6809 



by Jim Schreier 



Calculating time is simple, but 
requires special attention when 
manipulated by a BASIC 
program. Here are two ways to 
add time using TSC's XBASIC. 



Doing Time 

requires: 

BASIC with string functions 



Pennies automatically add up to 
dollars, but seconds refuse to add up 
to minutes. If Thomas Jefferson had 
planned our way of telling time, the 
following programs would have been 
unnecessary. Telling time is confused 
just enough to need special handling in 
your BASIC programs. 

Adding seconds, minutes, and 
hours may be done with string manipu- 
lations (see program A), or by using a 
simple formula (program B). The for- 
mula approach is faster and applies to 
almost any BASIC. The string approach 
uses TSC XBASIC's INSTR command, 
which searches for a substring within 
the main string. As such, program A 
would be limited to more advanced 
BASICS. 

The object of each approach is to 
add similar time units, subtract the 
next higher full unit, leave the re- 
mainder, and increment the next 
highest full unit. So 91 seconds would 
be reported as 1 minute and 31 seconds. 

Each approach is presented as a 
usable program. You may adapt the 
program to work as a subroutine, or 
keep it as a handy time adder. I have 
found the programs useful in adding the 
lengths of video disk movies and multi- 



record stereo sets. (If The Godfathei 
runs 171 minutes and The Godfathet 11 
runs 200 mintues, dare I try to watch 
both in one evening?) 

Program A 

Although manipulating strings to 
add time may be the long way home, it 
does demonstrate the "scenic route." 
The idea is to locate the decimal point 
once the total number of seconds have 
been divided by the constant 60 (line 
120). If no decimal point occurs (tested 
in line 130), the program prints out the 
results and concludes. Line 140 uses 
the INSTR (IN STRing) command to 
locate the position of the decimal 
point, allowing the necessary string 



Program A 



10 REM TIMESTR.BAS (Time String) 

20 PRINT CHR$( 12): PRINT 

30 H)(=60:W)( =1:P$="." 

40 REM Obtain Input 

50 INPUT ' 'How many Items to add' ' ,k% 

60 FOR X){=1 TO k% 

70 PRINT ' 'Enter Item' ';X)(; 

80 INPUT B 

90 T=T+B 

100 NEXT ys 

110 REM Caoulate number of hours and minutes 
120 H$=STR$(T/H!t) 
130 IF T/W=INT(T/H?) THEN 180 
140 I!«=INSTH(W!«,H$,P$) 
150 MN$=RIGHT$(H$, (LEN(H$)-I?)+W!{) 
160 HJ=LEFT$(H$,I?-MiJ) 
170 HN=INT(VAL(MN$)»H?+.5) 
180 HEM Print out results 
190 IF T < H? THEN H$=' 'Zero' ' 
200 PRINT: PRINT 
210 PRINT "Total Time: " ;H$; 
' ' Hours and' ' jMN; ' 'Minutes' ' 
220 END 



maneuvering [lines 150-160). The 
results are printed as hours and 
minutes and the program concludes. 

Program B 

The formula approach is less com- 
plex. Hours, minutes, and seconds 
must be entered in strict order. To 
enter 91 seconds, use "0,0,91". This 
program is more extensive than the one 
used for program A. It reports the total 
entered times as seconds, minutes, 
hours, and days. 

Line 250 is a representative example 
for the calculations. The total seconds, 
when divided by the constant 60, gives 
the number of minutes. When the 
number of minutes are multiplied by 
60 and subtracted fro'm the total 
seconds, the remaining seconds 
become available. The newly calcu- 
lated minutes are then added to the 
total minutes and the process is 
repeated to calculate hours and days. 

Each program used control "V — 
CHR$(12) — to clear the CRT and 
home up the cursor. This should be ad- 
justed to meet your requirements. Both 
programs set some variables and con- 
stants to integer by adding a percent 
sign ( A% ) . If your BASIC does not sup- 
port integers, leave the percent signs 
out of the listings. 



Jim Schreier has been a computer 
enthusiast since 1977. His articles have 
appeared in a number of magazines, and 
he has lectured about computers 
throughout the western United States. 
Contact Mr. Schreier in Phoenix, AZ 
85040. 
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Program B 

10 REM TIMEFORM.BAS (Time Formula) 

20 REM Copyright (o) 1982 by Jim Sohreler 

30 REM This Basic program caculates time from hours, minutes and seconds 

AO REM Clear screen and home up cursor Is Control L. Set to your terminal. 

50 CL|=CHR|(12) 

60 REM Set program constants 

70 ME!{=100:C!{=60:C1!{=2'1 

80 PRINT CL$ 

90 PRINT TAfl(26) ; ' 'TIME CACULATIONS' ' 
100 PRINT: PRINT 

110 INPUT ' 'Please enter the number of Items' ' ,NI$ 
L20 IF nl% < 1 OR NIJ > m% THEN 130 ELSE 170 
130 PRINT 

140 IF NI$ < 1 THEN PRINT ' ' 
150 IF NI$ > ME$ THEN PRINT 
160 PRINT: GOTO 110 
170 REM Obtain input 
180 PRINT: PRINT 
190 FOR k%=l TO NIJ 

200 INPUT '' Enter Hours , Minutes and Seconds, (H,M,S) ' ' 
210 THJ^THJ+HJ : TMJ^TMJ+MJ : TSJ-TSJ+SJ 
220 NEXT A$ 

230 REM Caculate seconds into minutes and seconds 
240 IF TS$=0 OR 15% < CJ-1 THEN 260 
250 B1$=TS$/C!{:TS$=TS!{-(B1!{»C!{) ■.m%=W%+Bl% 
260 REM Caculate minutes Into hours and minutes 
270 IF TM$=0 OR TMJ < CJ-1 THEN 290 
280 B2$=TM!{/C$:TM!{=TM!{-(B2$»C$) :TH!{=TH$+B2!{ 
290 REM Caculate hours into days and hours 
300 IF TH!{=0 OR TH$ < Cl$-1 THEN 320 
310 B3!{=TH!{/C1!{:TH!{=TH!{-(B3!{»C1$) :TH!{=TH!{+B3* 
320 REM Report time as Days, Hours, Minutes and Seconds 
330 PRINT CL$: PRINT 

340 PRINT TAfl(5); "DAYS' ' ;TAfl(25) ; "HOURS" ;TAB(45) ; ' 
350 F0RX$=1 TO 67:PRINT TAB(5); "-' ';:NEXTX!{ 
360 PRINT 

370 PRINT TAB(5);B3$;TAB(25);TH!{;TAfl(45);TM$;TAB{65);TS!{ 
380 END 



> Entry out of range. Lower limit Is 1 ... " :GOT0 160 
' > Entry out of range. Upper limit Is ' ' ;ME!{; ''...'' 



n%,n%,s% 



MINUTES' ';TAB(65); "SECONDS' 



IMCftO 



70 INCOME 1AX PROGRAMS 

(For Filing by April 15, 1983) 

For APPLE ll/ll* (DOS 3.3, 16-Sector) 



FEATURES:- 

1 . Menu Driven. 

2. 70+ Tax Programs. 

3. Basic: Unioclced; Listable. 

4. l^ame/SS l^o./FS carried 
over. 

5. Inputs can be checl<ed. 

6. Inputs can be changed. 

7. I. R.S. approved REVPROC 
format. 

8. Prints entire Form/Schedule. 

9. Calculates Taxes, etc. 

10. In 3.3 DOS, 16-Sector. 

11. Fast calculations. 
Use GREENBAR in triplicate 
— don't change paper all 
season! 

Our 4th Year in Tax 
Programs. 
H/e back up our Programs! 



12 



13 



14 



Helpful programs to calculate and print the many Tax 
Forms and Schedules. Ideal for the Tax Preparer, 
C.P.A. and Individuals. For just $24.75 per disk, post- 
paid (in 3,3 DOS; 16-Sector disks). 
Programs are designed for easy-use, with check- 
points to correct parts as needed. Results on screen 
for checking before printing. 

In all, there are more than 70 individual Tax Programs. 
These include Form 1040, 1040A, 1040EZ, 1120, 
1120S, 1041 and 1065. Also Schedules A, B, C, D, E, 
F G, R, RP and SE. And, Forms 1116, 2106, 2119, 
2210, 2440, 3468, 3903, 4255, 4562, 4797, 4835, 
4972, 5695, 6251 and 6252. 
And, we have a disk we call "THE TAX PREPARER'S 
HELPER" which has programs for INCOME STATE- 
MENTS, RENTAL STATEMENTS, SUPPORTING STATE- 
MENTS, IRA, ACRS, 1040/ES, ADD W-2's and PRINT 
W-2's. 

TRY ONE DISK AND SEE FOR YOURSELF. ONLY $24.75 
POSTPAID. 

First disk is AP#1, and includes Fomi 1040 and 
Schedules A, B, C, D and G. $24.75 POSTPAID. 






Write:— 
GOOTH TAX PROGRAMS 

931 So. Bemiston • St. Louis, Mo. 63105 



VISA 



STATISTICS 

PURE AND SIMPLE 




Human S])atetns Dynamics programs offer you 
flexibility, accuracy, and ease of use. You can 
purchase from the HSD statistics specialists 
with complete confidence. Any program that 
doesn't suit your needs can be returned within 
10 days for full refund. 



NEW 



STATS PLUS 



$200.00 



Complete General Statistics Package 

Research Data Base Management 

Design and Restructure Your Files 

Count, Search, Sort. Revieui/Edit 

Add, Delete. Merge Files 

Compute Data Fields, Create Subfiles 

Interface with other HSD programs 

Produce Hi Res bargraphs, plots 

IS way Crosstabulation 

Descriptive Statistics for alt Fields 

Chi-Square, Fisher Exact, Signed Ranks 

Manit-Whitney, Kruskat-Wallis, Rank Sum 

Friedman Anova by Ranks 

10 Data Transformations 

Frequency Distribution 

Correlation Matrix. 2 way Anova 

r, Rho, Tau, Partial Correlation 

3 Variable Regression, 3 t-Tests 



ANOVA II 



$150.00 



Complete Analysis of Variance Package 
Analysis ofCovariance, Randomized Designs 
Repeated measures Designs. Split Plot Designs 
I to 5 Factors, 2 to 12 Levels Per Factor 
Equal S or Unequal N. Anova Table 
Descriptive Statistics, Marginal Means 
Cell Sums of Squares, Data File Creation 
Data Review/Edit, Data Transformations 
File Combinations, All Interactions Tested 
High Resolution Mean Plots, Bargraphs 



HSD REGRESS 



$99.95 



Complete Multiple Regression Analysis 
Up to 25 Variables, 300 Cases/Voriable 
Correlation Matrices, Descriptive Statistics 
Predicted & Residual Scores, File Creation 
Regression on Any Subset of Variables 
Regression on Any Order of Variables 
Hi-Res Scatterplot & Residual Plot 
Keyboard or Disk Data Input 
Case X Case Variable x Variable Input 

Apple [I. 48K 1 or 2 Disk Drives 
3.3. DOS, ROM Applesoft 

Call (213) 993-8536 to Order 

or Write: 
HUMAN SYSTEMS DYNAMICS 
9249 Reseda Blvd., Suite 107 
^^^Northridge, CA 91324^ 
VISA 
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GEMINI- 

FOR PRINTER VALUE THAT'S 
OUT OF THIS WORLD 




Over thirty years of down-to-earth experi- 
ence as a precision parts manufacturer has 
enabled Star to produce the Gemini series 
of dot matrix printers— a stellar combina- 
tion of printer quality flexibility and reliabil- 
ity And for a list price of nearly 25% less 
than the best selling competitor. 

The Gemini 10 has a 10 " carriage and 
the Gemini 15 a 15y2" carriage. Plus, the 
Gemini 15 has the added capability of a bot- 
tom paper feed. In both models, Gemini 
qual ty means a print speed of 100 cps, high- 
resolution bit image and block graphics, 
and extra fast forms feed. 

Gemini's flexibility is embodied in 
its diverse specialized printing 
capabilities such as super/ 
sub script, underlining, back- ' 
spacing, double strike mode 
and emphasized print mode. An- 
other extraordinary standard micron 



m 



feature is a 2.3K buffer. An additional 4 K 
is optional. That's twice the memory of lead- 
ing, comparable printers. And Gemini is 
compatible with most software packages 
that support the leading printers. 

Gemini reliability is more than just a 
promise. It's as concrete as a 180 day war- 
ranty (90 days for ribbon and print head), a 
mean time between failure rate of 5 million 
lines, a print head life of over 100 million 
characters, and a 100% duty cycle that 
allows the Gemini to print continuously. 
Plus, prompt, nationwide service is readily 
available. 

So if you're looking for an incredibly 
_ A high-quality low-cost printer 
~ /^ that's out of this world, look 
^pA to the manufacturer with its 
feet on the ground — Star and 
the Gemini 10, Gemini 15 dot 



dmary standard micron i< s « i n< matrix printers. 

MAKING A NAME FOR OURSELVES 

1120 Empire Central Place, Suite 216, Dallas, TX 75247 
For more information, please call Bob Hazzard, Vice President, at (214) 631-8560. 



SIMULATIONS/APPLICATIONS 



Listing 1 

10 REM * Program "ROCKET 1' ' 

20 REM ♦ Copyright (C) 1982 

30 REM ♦ 

iO REM * Determines flight performance of model rockets 

50 REM ♦ 

60 REM * Altitude at burnout In meters 

70 REM * Velocity at burnout in meters/second 

80 REM ♦ Coast time and Total flight time in seconds 

90 REM * MaJtimum altitude in meters 

100 REM ♦ 

: RP = 1.22557 : LN » 1?? 
(1-2.2556913 E-5xX) ± ^.256116 
. 5x(SQR(ABS (X) )+X/SQR(ABS (X) ) ) 



110 Gj? = 9. 

120 DEF FNA(X) 

130 DEF FNB(X) 

UO REM ♦ 

150 CL$ = CHR$(11) + CHR$(2'i) 

155 PRINT CL$ : PRINT TAB(5); ' 



REM Clear Screen 
Program Rocket 1 ' ' 



'Launch site altitude (Meters) ' 
'Launch site temperature (Deg F) 
'Thrust duration (Seconds) '';T1 
'Total impulse (Newton-seconds) 
'Initial mass (Grams) ";M1 
'Propellant mass (Grams 
'Frontal diameter (mm) 
'Drag coefficient '';G2 



PRINT 
;H1 
' ';K1 



' ';M2 
;G1 



160 PRINT ; INPUT 

170 PRINT : INPUT 

190 PRINT : INPUT 

200 PRINT : INPUT "Total impulse (Newton-seconds) ";I1 

210 PRINT : INPUT 

220 PRINT : INPUT 

230 PRINT : INPUT 

240 PRINT : INPUT 

250 REM ♦ 

260 REM * Convert mass to kilograms and diameter to square meters 

270 Ml = .Wl » Ml : M2 = .;?!?1 X M2 : Gl = PI x Gl x 01 / 'iE6 

280 REM ♦ 

290 REM * Compensate for launch site altitude and temperature 

300 Rl = R0 X FNA(Hl) / (1 + (Kl - 59) / 518.67) 

310 REM ♦ 

320 REM * Determine analytic solution 

330 Fl = II / Tl : M3 = (Ml - M2 / 2) : K2 = .5 x Rl x Gl x G2 

3'iO A = M3 X Gj3 : B = Tl X FNB(K2 x (Fl - A) ) / M3 : C = EXP(B) 

350 D = EXP(-B) : E = .5 X (C+D) : F = (C-D) / (C+D) 

360 XI = (M3 / K2) X LOG(E) : VI = F x FNB((F1-A) / K2) : M3 = Ml - M2 

370 A = M3 X Gj3 : T2 = FNB(M3 / (K2 x G(3)) x ATN(V1 x FNB(K2 / A)) 

380 X2 = (M3 / (2 X K2)) x L0G(!<2 x VI x VI / A + 1) 

390 T3 = Tl + T2 : X3 = XI + X2 

-iOO REM ♦ 

'llO REM * Print results 



'Burnout velocity (Meters/second) '';TAB(50); VI 
'Coast time (Seconds) ";TAB(5(3); T2 
'Total flight time (Seconds) ";TAB(5!3); T3 
'Maximum altitude (Meters) ";TAB(50); XJ 



iJO PRINT : PRINT TAB(5) 

A40 PRINT : PRINT TAB(5) 

450 PRINT : PRINT TAB (5) 

460 PRINT : PRINT TAB(5) 

470 REM * 

480 PJi]M * Request another selection 

490 PRINT : INPUT "Another selection (Y/N) ";A$ : IF A$ = "N"THEN 530 

500 PRINT : INPUT "Another launch site (Y/N) " ;A$ : IF A$ = "Y"THEN 160 

510 PRINT : INPUT "Another rocket engine (Y/N) ";A$ : IF A$ = "Y"THEN 190 

520 PRINT : INPUT "Different mass or drag (Y/N) ";A$ : IF A$ = "Y"THEN 210 

530 PRINT CL$ : END 



The user responds with "Y" to 
compute the flight performance of a 
model rocket with different mass or 
drag characteristics. 

If another selection is made, the 
program will again execute the prompts 
necessary for the new selection. If the 
user answers "YES" to the prompt 
"ANOTHER SELECTION" but does 
not actually make a different selection, 
the program will stop after cycling 
through all the selection questions. 

Program Output 

ROCKET 1 outputs the model rocket 
altitude performance in units of the 
metric system. The burnout altitude 
and the maximum altitude are printed 
in meters and the burnout velocity is 
printed in meters per second. Coast 
time and total flight time are printed 
in seconds. 

For users who want to see other 



variables used in the software, "Rl" is 
the launch site density in kilograms per 
cubic meters. The variable "X2" is the 
coast altitude increment in meters and 
' 'K2" is the variable VigCdA in the units 
of kilograms per meter. "Fl" is the 
average thrust of the model rocket 
engine in newtons. 



Technical Discussion 

ROCKET 1 first converts the lift-off 
and propellant masses to kilograms and 
determines the cross-sectional area of 
the model rocket in square meters. The 
atmospheric density at the launch site is 
then computed as a function of the 
launch site altitude and temperature. 

The bumout altitude and velocity are 
computed with the following equations: 



Xbo = |m/kl ln[cosh(td/m 
N/ k(F-mg) )'] 



Vbo = V(F -mg)/k'tanh[td/m 
Vk(F-mg)'] 

where, 

m = average mass = lift-off mass — 

(propellant mass/2) 
k = VieCdA 
Q = atmospheric density 
Cd = drag coefficient 
A = cross-sectional area 
F = average thrust = total impluse/ 

thrust duration 
td = thrust duration 

The altitude gained during the coast 
flight and the coast time are determined 
using the next set of equations: 

Xc = [m/2k) InjkVboV mg -i- 1 ) 
tc = |m/kg) atan(Vbo Vk/mg') 

where, 

m = burnout mass = lift-off mass — 

propellant mass 
g = acceleration of gravity 

The maximum altitude and total flight 
time are given by these equations: 

X = Xbo + Xc 

T = td -I- tc 
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David Eagle is an aerospace engineer with 
an undergraduate and graduate degree from 
the University of Michigan. He presently 
works at Lear-Siegler, Inc., in Grand 
Rapids, MI, on projects which involve the 
most fuel-efficient way to fly airplanes. 
You may contact Mr. Eagle at 3759 76th 
St. SW, Byron Center, MI 49315 
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ANNouNcimElecfroScreen™ 

the Superior Alternative .,^ 



ikiij. 



$595 



to the Traditional Alphanumeric Terminals 













fi\552lhfi-BectroScrten:r Intelligent Graphics Board Features: 



Graphics ~1 b'^'^^^ 

• 512 X 480 resolution bit-mappec 

• Interleaved memory access — fast, snow-free updates 

Intelligence 

• 6809 on-board mpu 

• 6K on-board firmware 

• STD syntax high level graphics command set 

• Removes host graphics software burden 

• Flexible text and graphics integration 

• Multiple character sizes 3 / h 

• User programs can be run on-board 



^ 



€0^ 



ba 



doi 



Terminal 

• Terminal emulation on power-up 

• 83 characters by 48 lines display 

• Easy switching among user-defined character sets 

• Fast hardware scrolling 

Additional Features 

• SS-50C and SS-64 compatible board 

• Board communicates with host through parallel latches 

• Composite and TTL level video output 

• 8 channel 8 bit A/D converter 

• Board occupies 4 address bytes 



See your dealer today! 

The ElectroScreen manual is available for $10, credited toward purchase of the board. 



The ElectroScreen has a 90 day 
warranty from purchase date. 

Dealers, please contact us for our 
special introductory package. 




Phvacinc 



(703)671-3900 

3711 S. George Mason Dr., Fails Church, Va. 22041 
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FrRST THINGS FIRST. 
LEARN ALL ABOUT II 




When you don't know the first thing about your new 
Apple II* you needafriendly, cheerful, easy going teacher at 
your side. And the ELEMENTARY APPLE is just that kind of 
book. 

It sweeps away the confusion— explains your Apple in 
everyday language — shows you how to hook it up, how to use 
the keyboard and work on the screen. 

Gently and carefully it gives you an understanding of all 
the things, your Apple can do. And then, it even shows how 
easy it is for anyone to write a simple program— provides 
common sense answers about graphics, utility programs, and 
the how and why of word processors, business programs and 
hardware like printers. 



VISA/MASTERCARD accepted. $2.00 shipping/handling charge. 

(California residents add 6Vi% sales tax) 

"Apple II is a trademark of Apple Computers, Inc. 



Yes, there's a lot of information. But, not one chapter 
one word is dull or difficult to follow or complicated. Prove 
yourself. Visit your computer store. Open the ELEMENTAF 
APPLE. Read a page of the introduction, then flip it open 
anywhere and read a paragraph or so. You'll find it's as 
understandable, as helpful and as marvelous as we say. 

If you, or a member of your family, is an Apple beginr 
this is the book you need. It'll teach you everything you wa 
know, in the way you want to learn. 

Only $14.95. At computer and book stores, or: 



9748 Cozycroft Ave., Chatsworth, CA 91311. (213) 709-120 



SIMULATIONS/APPLICATIONS 



Sun and Moon on the APPLE 



by Svend Ostrup 



I 



This Applesoft program 
produces a high-resolution 
graphic simulation of the 
apparent orbiting of the sun and 
moon around Earth as well as of 
the phases of the moon. It also 
predicts solar and lunar 
eclipses. 

Sun and Moon 

requires: 

48K Apple 

The astronomy program listed simu- 
lates the apparent rotation of the sun 
and moon around Earth, as well as the 
phases of the moon day by day, beginn- 
ing at a starting date chosen by the 
user. The locations of the ascending 
and descending nodes of the moon and 
of the moon's perigee are also shown. 
High-resolution page 1 shows all the 
above simultaneously with the current 
date and the moon's elongation. The 
program also predicts eclipses or the 
possibility of eclipses. 

The material in this program is based 
on information provided by my son, 
Gert Ostrup, an amateur astronomer, 
and is published as an example of col- 
laboration between novices in different 
fields — in this case astronomy and 
programming. 

The program is straightforward and 
presents no difficulties. Some explana- 
tions, however, might be of value for 
the user to get full benefit from the 
program. Let us start looking at the 
firmament. 

Type in the program and RUN. You 
will be informed that you can: 1. stop 
running the program at any date by 
pressing S (stop); 2. re-start by pressing 
SPACE; 3. get a prompt for a new start- 
ing date by pressing M; and 4. exit the 
program by pressing ESC. You should 
be aware that nothing will happen until 



the program has finished drawing the 
phase of the moon for the day in ques- 
tion, so some patience is required. 

You will now be prompted to input 
a starting date [note the sequence: day, 
month, year). Try 28,12,1981. The pro- 
gram then draws a reference circle of 
dots spaced 10 degrees apart, marks the 
center (which is the location of Earth) 
and the 3 and 9 o'clock locations. The 
starting date soon appears and the sun 
and moon and three other objects (see 
below) are drawn inside the reference 
circle. Next the moon is drawn in its 
correct phase to the right of the refer- 
ence circle. Meanwhile, the elongation 
of the moon (angular longitudinal 
distance between sun and moon in 
degrees) is printed. After a pause, the 
program goes on to the next day. 

Let the program run briefly. When 
you reach 03-01 1982 press S and wait 
for the program to stop so you can take 
a closer look at the various features. 
The 3 o'clock position of the reference 
circle is the equinox (the point of inter- 
section between the orbit of the sun — 
the ecliptica — and a plane through the 
equator of Earth) . Thus, when the sun 
passes this point (21 March), the north- 
ern hemisphere enters the summer 
season, which will last until the sun 
passes the 9 o'clock position. The sun 
and moon both move counter-clock- 
wise, the moon at about 13 degrees/ 
day and the sun at about 1 degree/day. 
The cross you find between 12 and 1 
o'clock is the perigee of the moon, 
which is the point closest to Earth in 
the moon's orbit. The perigee moves in 
the same direction as the sun and 
moon, but more slowly. 

The shapes you see opposite each 
other near 11 and 5 o'clock are the 
nodes; i.e., the points of intersection 
between the orbit of the moon and the 
ecliptica. The ascending node is marked 
with a half cross that lacks the lower 



bar, while the descending node is 
marked with a cross that lacks the up- 
per bar. The nodes move in opposite 
directions from the sun and moon at 
very slow speeds. 

Now continue the program by press- 
ing SPACE. When you reach 08-01 
1982 and the drawing of the (full) moon 
is finished, the program stops, sounds 
the bell twice, and in flashing letters 
informs you of a lunar eclipse! 

While a program that simulates the 
movements of the planets around the 
sun by using Keppler's equation might 
be quite accurate, this is not the case 
when you simulate the moon orbiting 
Earth. The reason is that the actual 
deviations from the Kepplerian method 
are not always negligible and might 
vary a few degrees. The user should be 
aware of this inherent inaccuracy that 
has an impact on the prediction of 
eclipses. Thus, when an eclipse warn- 
ing (like the one you have just seen) is 
given, the actual eclipse might, in rare 
cases, take place the day prior to or the 
day after the date foreseen by the 
program. 

I am aware that you could include 
the official predictions of eclipses, say 
for the past and next ten years, as a 
look-up table in the program. However, 
I have found it more interesting to 
relate the warnings to the locations of 
the sun, moon, and the nodes, as 
calculated and drawn by the program. 

Eclipses can occur only when the 
sun and moon overlap [conjunction) as 
seen from Earth, or when they are ex- 
actly opposite from each other (opposi- 
tion) as seen from Earth. Therefore, a 
prerequisite for the occurrence of a 
solar eclipse is that the longitude of the 
moon is equal to the longitude of the 
sun. A prerequisite for the occurrence 
of a lunar eclipse is that the difference 
between the solar and the lunar 
longitudes equals 180 degrees. In other 
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words, the moon is overtaking the sun 
(or its opposition) on the day of an 
eclipse. This condition is investigated 
in line 2010 by looking at the sign of 
the sinus of the said difference. A sign 
change is required. 

The said condition, however, is not 
sufficient for an eclipse to occur. (If it 
were we would have an eclipse every 
fortnight!) In the case of a lunar eclipse, 
the moon must pass through the 
shadow of Earth (not above or below 
it). Earth and moon must thus be in 
line, within certain limits. This hap- 
pens only when the sun (and thus also 
the moon) are sufficiently close to one 



of the nodes. Therefore, conditions of 
eclipses are studied by investigating 
whether or not the sun is sufficiently 
close to one of the nodes at the moment 
when the sun and moon are in conjunc- 
tion or opposition. 

The location of the perigee is of in- 
terest when judging the extent of cen- 
tral solar eclipses. (Will they be total or 
annular?) Remember that the perigee is 
the point in the orbit of the moon 
closest to Earth. When the moon is 
close to the perigee its apparent size, as 
seen from Earth, is bigger than that of 
the sun, a prerequisite for a total lunar 
eclipse. 



The date change takes place at mid- 
night Greenwich mean time. To use 
local time, the following simple pro- 
gram change is required: if your time is 
behind Greenwich mean time (which is 
the case in the U.S.A.) by six hours, 
convert the hour difference to a 
decimal day difference (6/24 = 0.25 in 
this case) and add the figure to the con- 
stant 715953.5 in line 6930; i.e., 
change 715953.5 to 715953.75. 



You may contact Mr. Ostrup at 
Lindevangsvej 12, DK 3460 Birkerod, 
Denmark. 



Sun and Moon Listing 

10 REM * SUN 4 MOON * 

20 REM * BY SVEND 0STRUP * 

30 REM * LINDEVANGSVEJ 12 * 

AO REM * 3A6OBIRKER0D * 

50 REM * DENHAHX * 

100 REM SET LOMEM AND/OR HIMEM IF NEEDED 

105 REM Arrays X,Y and A contain plotting coordinates 

110 DIM X(4,2) : DIM Y(4,2) : DIM A(4,2) : DIM S(12) 

120 GOTO 6000 

199 REM Calculate andgle W from coordinates XX, YY by ATN 

200 IF XX = a AND YY > a THEN W = PI : RETURN 

210 IF XX = a AND YY < THEN W = 3 » PI / 2:RETURN 

220 W = ATN (YY / XX) 

230 IF XX < a THEN W = W + PI 

2i0 RETURN 

290 REM Calculate Coordinates and Angle 

300 V = V + Z X N:0 > + Z X H 

310 MA = V - 0:E1 = MA 

320 EA = MA + E X SIN (El) 

330 IF ABS (El - EA) > Mii THEN El = EA: GOTO 320 

3^0 YY = SQR (1 - E X E) X SIN (EA) 

350 XX = COS (EA) - E 360 RA = SQR (XX x XX + YY x YY) 370 GOSUB 200 

380 A = W + 

390 X = HU + K X RA X cos (A) 

iOO Y = ET - K X RA X SIN (A) 

ilO RETURN 

i99 REM Calculate plotting coordinates and longitude 

500 = + Z X H 

510 X0 = K X cos (0) :Ya = K X SIN (0) 

520 RETURN 

598 REM Calculates and prints elongation, and draws 

599 REM picture of moon, showing phase at current date 

600 DA = A(l,l) - k{i,l) 

605 IF DA > 2 X PI THEN DA = DA - 2 x PI : GOTO 605 

610 IF DA < a THEN DA = DA + 2 x PI; GOTO 610 

615 EL = DA 

620 IF DA > PI THEN DA = DA - PI:W = 1: GOTO 640 

630 W = a 

6-^0 VTAB 2A: HTAB 29: PRINT " ELONG. : ' 

650 SV$ = RIGHT$ ( STR$ ( INT (EL x F + 

660 HTAB 36: PRINT SV$; : HTAB 1 

670 FOR I = Sl TO - Sl STEP - 1 

680 HR = SQR (S2 - I X I) 

690 IF W = a THEN HC0LOR= 3: GOTO 710 

700 HCOLOR= i 

710 HPLOT TF + RR X COS (DA) 

720 IF W = a THEN HCOLOR= ^: 

730 HCOLOR= 3 

7i0 HPLOT TF - RR,ET - I TO TF - 

750 NEXT 

760 RETURN 

950 HTAB 28) - LEN (Ql) / 2: PRINT Qt : PRINT : RETURN 

999 REM Increment day number 

1000 Z = Z + 1 

1200 REM Calculate longitude and plotting coordinates 

1201 REM for sun and moon, using subroutine 300 

1202 REM SUN 

1210 V = VS:N = NS:E = ES:K = KS:0 = 0S:H = HS 
1220 GOSUB 300 

1230 X(a,2) = X:Y(a,2) = Y:A(el,2) = A 
1300 REM MOON 

1310 V = VM:N = NM:E = EM:K = KM:0 = OM:H = HM 
1320 GOSUB 300 



.5) + ieiei^),3) 



,ET - I TO TF 
GOTO 7i0 



■ HR,ET - I 



■ RR X COS (DA),ET - I 



Sun and Moon Listing (continued) 

1330 X(l,2) = X:Y(1,2) ="y:A(1,2) = A 

1398 REM Calculate longitude and plotting coordinates 

1399 REM for nodes and perigee using subroutine 300 

1400 REM NODES 
lilOO = VN:H = NN:K = KN 
1420 GOSUB 500 

1430 X(2,2) = HU + xa:Y(2,2) = ET - Yf):A(2,2) = 

1440 X(3,2) = HU - X0:Y(3,2) = ET + Ya-.A(3,2) = + PI 

1500 REM PERIHELION 

1510 = OM:H = HM:K = KP 

1520 GOSUB 500 

1530 X(4,2) = HU + xa:Y(4,2) = ET - Y0:A(4,2) = 

1599 REM Extinguish previous day's Sun, Moon, Nodes and Perigee 

1600 XDRAW 1 ATX(a,a),Y(a,a) 
1610 XDRAW2 ATX(l,a),Y(l,a) 
1620 XDRAW3 ATX(2,a),Y(2,a) 
1630 XDRAW4 ATX(3,a),Y(3,0) 
1640 XDRAW 5 AT X(4,a),Y(4,a) 

1698 REM Print current date, taking change of month, years 

1699 REM and leap years into account 

1700 IF INT (D) > S(M) THEN D = D - S(M) :M = « + 1 
1710 IF M > 12 THEN M = M - 12:AA = AA + 1:T = T + 1 
1720 IF T = 4 THEN T = 

1730 IF T = THEN S(2) = 29: GOTO 1750 

1740 S(2) = 28 

1750 HOME : VTAB 22: HTAB 29 

1760 PRINT RIGHT? (( STR$ ( INT (D) + yii)),2);" -" 

1765 RIGHTS ( ( STR$ (M + 1^0) ) ,2) ; " " AA 

1799 REM Plot current day 

1800 DRAWlATX(0,l),Y(a,l) 
1810 DRAW2 AT X(1,1),Y(1,1) 
1820 DRAW3 ATX(2,1),Y(2,1) 
1830 DRAW4 AT X(3.1),f(3,l) 
1840 DRAW 5 ATX(4,1),Y(4,1) 

1899 REM Draw current day ' s Moon 

1900 GOSUB 600 
1950 Q = FRE (0) 

2000 Dl = k(i,l) - A(l,l) :D2 = k{i,2) - A(l,2) 

2010 IF SGN ( SIN (Dl)) = SGN ( SIN (D2)) THEN 5000 

2020 C = SIN (Dl) / ( SIN (Dl) - SIN (D2)) 

2030SK = A(e),l)-A(2,l) +Cx (A(0,2) - A(2,2) -A(«,l) +A(2,1)) 

2040 LI = ABS ( COS (SK)) 

2099 REM Check Eclipse 

2100 IF COS (Dl) > a AND LI > a. 96639 THEN Q$ = 
" SOLAR ECLIPSE " : GOTO 2200 

2110 IF COS (Dl) > AND LI > a. 94604 THEN Q$ = 

" POSSIBLE SOLAR ECLIPSE" : GOTO 2200 
2120 IF COS (Dl) < AND LI > 0.98723 THEN Q$ = 

" LUNAR ECLIPSE" :GOTO 2200 
2130 IF COS (Dl) < AND LI > 0.97698 THEN Q$ = 

" POSSIBLE LUNAR ECLIPSE" : GOTO 2200 
2140 GOTO 5100 

2200 VTAB 22 : HTAB 1 : FLASH : PRINT Q$ 
2210 NORMAL : PRINT : CALL BE : CALL BE 
2220 PRINT " RE-START: < SPACE > " : GET SVl 
2230 GOTO 5200 
5000 FOR I = TO 800: NEXT 
5100 PE = PEEK (49152) 

5110 IF PE = 155 THEN SV = PEEK (49168) : TEXT : HOME : END 
5120 IF PE = 205 THEN SV = PEEK (49168) : GOTO 6700 
5130 IF PE = 211 THEN SV = PEEK (49168) : GET SV$ 

5199 REM Change current to previous, next to current 

5200 FOR I = TO 4 
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Sun and Moon Listing (continued) 

5210X(I,el) =X(I,1):X(I,1) =X(I,2) 

522OY(I,0) = Y{I,1):Y(I,1) = Y(I,2) 

52J0A(I,el) = A(I,1):A{I,1) =A(I,2) 

52^0 NEXT 

5250 D = D + 1 

5260 HC0LOR= 3 

5270 GOTO 1000 

6000 TEXT : HOME : VTAB 6 

6010 Q$ = " APPARENT MOVEMENTS" :GOSUB 950 

6020 Q$ = " OF" .-GOSDB 950 

6030 Q$ = " SUN AND MOON" :GOSUB 950 

60^0 Q$ = " AROUND THE EARTH" :GOSUB 950 

6050 Q$ = " BY" :G0SUB950 

6060 Q$ = " SVEND aSTRUP" :G0SUB 950 

6070 Q$ = " FEBRUARY 1982. " :G0SUB 950 

6100 PI =;. 1^159265 :HU> 100:ET = 80:F = 180 / PI 

6110 SI = 30:32 = 900:TF = 2^0 

61:20 BE = 64477: REM BELL 

6200 REM SUN 

6210 VS = 4.8S%8:NS = . 01720279 :ES = . 0167259 :KS = 72 

6220 OS = 4.92624:HS = .00000082 

6300 REM MOON 

6310 VM > 5.43083:NM = .2299715:EM = .0549005:KM = 72 

6320 CM = 4.4636l:HM = .0019«368 

6400 REM ASCENDING NODE 

6420 VN = 3. 1188827 :NN . - 0.0009242 19 :KN = 63 

6500 REM PERIHELION OF MOON 

6510 KP = 59 

6599 REM Load shape table at $300 

6600 RESTORE : FOR I = TO 66 
6610 READ Q: POKE 768 + I,Q: NEXT 
6620 POKE 232,30: POKE 233,03 

6650 S(l) = 31:S{2) = 28:S(3) « 31:S(4) = 30:S(5) = 31:S(6) - 30 
6655 S(7) = 31:S(8) = 31:S(9) = 30:S(10) = 31:3(11) = 30:S(12) = 31 
6700 TEXT : HOME : VTAB 6 
6710 PRINT : PRINT " ONCE CELESTIAL BODIES MOVE YOU CAN: " 



6720 
6730 
6740 
6750 
6760 
6800 
6810 
6820 
6830 



PRINT ; 
PRINT 
PRINT I 
PRINT ' 
PRINT ' 
PRINT ' 
PRINT : 
INPUT ' 



STOP MOVEMENTS PRESS <S>" 
RE-START MOVM. PRESS <SPACE> " 
NEW START DATE PRESS <M> " 
EXIT PROGRAM PRESS <ESC> " 
PRINT ; PRINT 

STARTING DATE (DD,MK,YYYY) " D,M,AA 
IF M < 1 OR M > 12 THEN 6700 
IF M = 2 AND D < 30 THEN 6900 
IFD > S(M) THEN 6700 

6899 REM Caoulate day number Z,0 is 12:00M, 1/1/60 GMT 

6900 T . INT ((AA / 4 - INT (AA / 4)) X 4 + .05) 
6910 IF M < 3 THEN A0 > AA - 1:M0 . M + 13 : GOTO 6930 
6920 A0 = AA:M0 = M + 1 

6930 Z = INT (365.25 x A0) + INT (30.6001 x M0) + 

D- 715953.5 
6950 FOR I = TO 4:X(I,0) = 0:Y(I,0) = 180:A(I,0) = 

: NEXT 
7200 REM CALCULATE START SUN 
7210 V = VS:N = NS:E = ES:K > KS:0 = 0S:H = HS 
7220 GOSUB 300 

7230 X(0,1) = X:Y(0,1) =. Y:A(0,1) = A 
7300 REM CALCULATE MOON 

7310 V = VM:N - NM:E = EM:K . KM:0 = OM:H > HM 
7320 GOSUB 300 

7330 X(l,l) = X:Y(1,1) = Y:A(1,1) = A 
7400 REM CALC. NODES 
7410 . VN:H = NN:K = KN 
7420 GOSUB 500 

7430 X(2,l) = HU + X0:Y(2,1) = ET - Y0:A(2,l) = 
7440 X(3.1) = HU - X0:Y(3,1) = ET + Y0:A(3,1) = + PI 
7500 REM CALC . PERIHELION 
7510 = QM:H = HM:K = KP 
7520 GOSUB 500 

7530 X(4,l) = HU + X0:Y(4,1) = ET - Y0:A(4,l) = 
8000 HGR : HCOLOR= 3: SCALE= 1: R0T= 
8010 FOR I = TO 2 X PI STEP PI / 18 
8020 HPLOT HU + ET X COS (I),ET - ET x SIN (I) 
8030 NEXT 

8040 HPLOTHU,70TOHU,90 
8050 HPLOT 90, ET TO 110,ET 
8060 HPLOT 16,ET TO 20,ET 
8070 HPLOT 180, ET TO 184, ET 
8080 GOTO 1000 
9000 DATA 5,0,12,0,41,0,54,0,58,0,62,0,37,63,54,45,37, 

228,63,23,54 
9010 DATA 14, 45, 213, 19, 246, 24, 24,192, 24, 40, 5, 64, 72, 32, 76, 137, 146, 18 
9020 DATA 45,0,37,63,54,45,37,228,63,23,54,14,45,5,0,103,21,6 
9025 DATA 0,245,7,32,0,172,30,7,32,0 
9030 END iMCRO 



FAST'nEASY 



05 LOCI = «7C80 



10 PC = *3FC7 



20 LABLi STEP 100 NODISP 



30 IF X<«3E OR @L0C1H«17 THEN GOTO LABL 



40 PRINT "HERE IS THE CULPRIT' 



50 SHOW<10a 



PTO-6502 is a high speed, compiled BASIC-like lan- 
guage, light years ahead of the Apple II Single Stepper 
and far more sophisticated than any other 6502 de- 
bugger available. It allows you to sit back effortlessly 
while your computer glides through your code at a thou- 
sand instructions per second looking for your bugs. Or 
you can select a slower speed with updated display of 
memory. A paddle-controlled single stepper mode is 
also available. At either of the slower speeds, the 
PTD-6502 monitors and saves the last 1 28 instructions 
executed for review at any time. 

Virtually unlimited breakpoint complexity is per- 
mitted with the PTD-6502. IF statements with mixed 
AND's and OR's can be created to test conditions such 
as memory change, memory = value, instruction loca- 
tion, . . . and many others. You can have as many named 
breakpoints as you wish in both ROM and RAM. 

Some other features of the PTD-6502 include • Fast 
subroutine execution. • Hex calculator/converter. 

• Hex/ASCII memory dump. • Up to 16 machine lan- 
guage cycle timers. • Ability to monitor specific labeled 
areas in memory while stepping. • Effective address. 

• Accessible monitor commands. • A documented mod- 
ule for relocation of the PTD-6502 to virtually any loca- 
tion (source code supplied). 

The debugging program shown on the monitor is a 

simple example; it could be far more complex. If you can 
think of it, you can probably scan for it at 1 000 instruc- 
tions per second. If you're a professional, the PTD-6205 
can pay for itself in the first few hours of use. If you're a 
novice, you'll soon be debugging like a pro. 



ORDER: PTD-6502 Debugger 

including DOS 3.3 Disk 

and instruction manual 



$49.95 



(Note that disk is not copy protected. Order only 
one for each business or institution.) In Califor- 
nia, add 6.5% sales tax. 
PTD-6502 requires Autostart ROM for fast breal<point. 

PTERODACTYL 
SOF1WARC® 

1452 Portland Ave. • Albany CA 94706 • (415) 525-1605 
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SIMULATIONS/APPLICATIONS 



Microcomputers in a College 
Teaching Laboratory, Part 3 



by Thor Olsen, Howard Saltsburg, Richard H. Heist 



Process control Is illustrated 
using two simple experiments — 
an air bath and a simulated 
chemical reaction in an 
Industrial-type chemical reactor. 
Circuits presented include an 
LED training device, AC power 
controller, and PET parallel port 
multiplexer. 



Part I of this series [MICRO 53:53) pro- 
vided an overview of the undergraduate 
Chemical Engineering laboratory pro- 
gram at the University of Rochester. 
Part 11 (MICRO 55:59) focused on the 
use of computers for data acquisition in 
a laboratory environment. This article 
emphasizes the output of signals from 
the computer that, together with data 
acquisition, enables you to "close the 
loop" so a process or an instrument can 
be controlled with a microcomputer. 

Closing the Loop: Process Control 

During the sophomore laboratory 
course, students learn to generate and 
control digital output signals from the 
microcomputer. A light-emitting diode 
[LED] module that attaches to the 
parallel port of the PET computer and 
maps the data bus to eight LEDs is the 
primary tool. The module is battery 
operated and completely self-contained 
(see figures 1 and 2). Although the 
module is simple, its effectiveness in 
visualizing operator control of the out- 
put port is remarkable. With this 
device, it is easy to demonstrate that 
the computer can be used to control 
any external device that requires sim- 
ple on/ off operation. 

The use of the LED mapping illus- 
trates a primitive form of control in 
which the eye acts as a sensor, and the 



operator can respond manually to an er- 
ror by making a change to correct the 
situation. This is, in fact, a form of 
open loop control. For laboratory and 
engineering purposes, however, the im- 
plementation of automatic, so called 
closed loop, control is of more interest. 
In closed loop control the operator de- 
fines a quantity called the process vari- 
able, such as the temperature, and 
selects a desired value (the set point) at 
which this variable should be main- 
tained. The difference between the pro- 
cess variable and the set point (i.e., the 
error) is used to determine how the de- 
vice that influences the process vari- 
able should respond to correct the error. 

The home thermostat is a simple 
form of control; it controls the room 
temperature (the process variable) 
simply by turning the heater or air con- 
ditioner on and off. As is commonly ex- 
perienced with this type of control, the 
room temperature will vary automati- 
cally and continuously about the set 
point. Without intelligent devices, it is 
difficult (and expensive) to utilize more 
sophisticated control strategies, which 
would give less variation about the set 
point. The microcomputer, however, is 
an ideal device for such tasks as it can 
be used in complex decision-making 
modes. In contrast to conventional 
analog control devices where the con- 
trol strategy often is implemented by 
mechanical means, the microcomputer 
allows strategy to be easily changed as 
needed. All that is required is modifica- 
tion of the software. 

Since the students have had ex- 
perience in reading temperature with 
the thermistor/555 timer circuit and 
have learned to send digital informa- 
tion to an external device, such as the 
LED module, it is a relatively simple 
matter to combine the two fvmctions in 
a process control experiment. Although 
the theory of process control is not 




Figure 1: Photograph of the battery- 
operated module used to map the PET 
data bus to eight LEDs. 

usually taught until the senior year, we 
have found that in the laboratory an in- 
troduction to the topic can be given to 
the sophomores. 

A simple recirculating air heater, or 
air bath, provides a practical applica- 
tion of the theory. The students are re- 
quired to write a program in Structured 
BASIC to effect the desired temperature 
control of the air bath with on/ off and 
proportional control strategies. The 
success of a strategy is illustrated by 
mnning the program with the air bath 
interfaced to the microcomputer. Also, 
the air bath allows operator control of 
recirculated air versus intake of (cold) 
room air so that sudden changes can be 
made in the heat requirement of the 
system (load changes] to further test 
the control strategy. Because the air 
bath is simple and inexpensive, each 
computer can be equipped with its own 
system. Thus, each student has easy 
access to an experimental station where 
he can develop and test his program. 
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The Air Bath 

The air bath consists of a box, 12 x 
9x4 inches. The front cover is plex- 
iglass; all other sides are made of wood, 
covered on the inside with aluminum 
foil. The box has a vertical partition, 
open at the top and bottom to allow cir- 
culation of air. Mounted inside the box 
is a light bulb, which is painted black 
(heater), and a fan to circulate the air. 
There are ventilation holes at the bot- 
tom on each side of the box and a 
sliding damper, which in one extreme 
position blocks the air exhaust vents, 
and in the other, the recirculation 
opening of the center partition. By 
moving the damper, the operator can 
impose a load change on the operating 
conditions of the box. A thermistor, 
located near the exhaust vents, is used 
with the 555 timer circuit to monitor 
the air temperature of the bath. 

The AC power control circuit for 
the heater is shown in figure 3. The 
operation of the circuit can be described 
as follows: When the output line from 
the PET is high [logic 1), the 2N2222 
transistor (Ql) is turned on, allowing 
current to flow through the LED of an 
optoisolator (ICl). When the LED is 
emitting, the photoconductor element 
of ICl, a TRIAC, will allow control cur- 
rent to flow to the power-controlling 
TRIAC (Q2), and the heater is turned 
on. This circuit permits only two 
operating states: power on and power 
off. Most control strategies, however, 
call for the use of fractions of full 
power. Fortunately, such fractional- 
power operation can be simulated by 
dividing the operating time into short 
"control intervals;" e.g., one second 
each, and turning the power on for that 
fraction of each control interval that 
corresponds to the fraction of full 
power called for by the control 
algorithm. Thus, a variety of more 
complex control strategies can be im- 
plemented, even with this simple type 
of hardware. 

The air bath is also small enough so 
that the response time for a load change 
is only a minute or so, and the time re- 
quired to reach a desired set point tem- 
perature of 50 degrees Celsius, starting 
from room temperature, is about five 
minutes. Although this response time 
is much shorter than that of most 
chemical process equipment, it is use- 
ful in the laboratory. The fast response 
provides a highly interactive situation, 
promotes independent efforts in devel- 
opment of the required control 



Figure 2: Schematic of the LED module circuit. 
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strategies, and permits exploration of 
alternative control modes. 

With typical operating tempera- 
tures from 45 to 60 degrees Celsius, 
typical responses of the bath tempera- 
ture to load changes are shown in 
figures 4 and 5. In figure 4 the PET is 
programmed to display data (including 
the measured air bath temperature) on 
the left side of the screen and plot the 
temperature on the right side. The set 
point temperature is represented by the 



straight vertical line in the center of the 
plot. The time between successive 
screen display updates is about six 
seconds, although the temperature is 
measured and the heater power updated 
several times between consecutive 
screen updates. The peak in the tem- 
perature profile shown on the screen 
display reflects a momentary increase 
in temperature when the damper was 
closed. The control algorithm [power 
to heater proportional to the error — 




PET 5.1KU 

DATA 
LINE 



Q1=2N2222 

Q2 = TRIAC, T2300PB 

or equivalent 
ICl = MOC 3010 



Figure 3: Schematic for AC power controller on the air bath unit 
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Figure 4: Photograph of the microcomputer/air bath combination used for process 
control experiments by our students. See text for description. 



proportional control) gradually reduced 
the temperature toward the set point. A 
graph of the response of the bath tem- 
perature to a load change is shown in 
figure 5. Again, the center line in- 
dicates the set-point temperature. Note 
that the control algorithm used to gen- 
erate the data in figure 5 involves cor- 
rections that are the sum of terms in- 
volving proportionality, time integral 
and time derivative of the error (PID), 
although the hardware is unchanged. 
The additional computations, relative 



to proportional control, present no 
problem for the microcomputer, even 
when controlling a device with as short 
response times as the air bath. 

The response to this project has 
been gratifying. The students apply the 
material they have learned during the 
semester and acquire confidence in the 
use of the computer in a laboratory en- 
vironment. The concept of the com- 
puter being a tool is re-emphasized by 
its use in the solution of a realistic 
engineering problem. 




Figure 5: High resolution, dot matrix printer output from an air bath experiment. The 
straight, center Una represents the sat point temperature, the trace Is the actual 
temperature in the bath and the "load" markings Indicate when the damper was 
opened and closed, respectively (see text). The time between the two load markings 
Is approximately 12 minutes. The time for the bath to respond to a load change is 
typically around 5-10 seconds. The type of control procedure used in this experi- 
ment was PID (proportlonal-lntegral-derlvative). See reference 3 for details concern- 
ing control strategies. 



The Continuous Stiired Tank 
Reactor 

The air bath just described plays an 
important role in the students' labora- 
tory experience. It is their first "real" 
chemical engineering experiment and 
clearly illustrates how the computer 
can be used to control a process device. 
The concepts used with the air bath are 
directly applicable to more realistic 
problems, but, unfortunately, the 
dynamic behavior of real process 
devices cannot be determined ade- 
quately from the study of such small- 
scale laboratory equipment. Therefore, 
it is important to deal with real in- 
dustrial devices. Toward this end, a 
pilot-plant scale chemical reactor has 
been interfaced to a microcomputer. 
The reactor, shown in figure 6, is 
simply an oval tank surrounded by a 
water-cooled jacket and equipped with 
a stirrer. 

The reactor is operated as a con- 
tinuous stirred tank reactor (CSTR); 
i.e., reactants are continuously fed to 
the reactor, and a mixture of reactants 
and product is continuously with- 
drawn. Again, the problem is to control 
temperature, but the heat source is 
now, in principle, a chemical reaction. 
Rather than work with an actual chem- 
ical reaction, however, an exothermic 
[heat generating) reaction is simulated 
by feeding water to the CSTR (instead 
of reactants) and bleeding steam into 
the flow to heat the reactor contents. 
By controlling the rate of steam addi- 
tion, the heat released by an actual 
chemical reaction can be simulated 
safely and inexpensively. 

The process hardware allows three 
stream temperatures to be measured; 
the reactor output (product stream), 
and the cooling jacket input and out- 
put. Two variables can be controlled by 
the computer: 1. the flow rate of cool- 
ing water through the jacket (which 
controls the "reaction"); and, 2. the 
flow rate of steam into the reactor 
(which effects the simulation). The 
temperature measurements are made 
using thermistors and the 555 timer 
A/D^. The flow rates of cooling water 
and steam are regulated by two com- 
mercial flow controllers. An analog sig- 
nal of 4 - 20 mA is required for each. 
The controller design further requires 
that once a current is set at a certain 
level, it must remain at that level until 
a change in controller setting is desired. 

Since the design requires two out- 
put ports for the two flow controllers 
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Figure 6: Photograph of the continuous, 
stirred tanic reactor (CSTR). The actual 
reactor tanIc and cooling jacket comprise 
the oval portion of the device. (The builty 
portion above the reactor contains the 
motor and variable-speed transmission 
for the stirrer.) 

and one input port for the three ther- 
mistors, it was necessary to multiplex 
the PET parallel port. The circuit used 
is shown in figure 7; other versions 
have been described in the literature 
noted in reference 4. Details concern- 
ing the individual integrated circuits 
can be found elsewhere^ but a qualita- 
tive description of their circuit func- 
tion may be useful. The 4066 inte- 
grated circuits are CMOS analog 
switches. Each chip contains four 
separate switches which, upon com- 
mand from the computer, can be indi- 
vidually opened or closed. If a switch is 
closed, its internal resistance is only a 
few hundred ohms; if the switch is 
opened, its resistance increases by 
about ten orders of magnitude. The net 
effect of opening a switch is that a 
device connected to the data bus 
through this high resistance is effec- 
tively isolated from the bus. For in- 
stance, if the switches in the top 4066 
chip in figure 7 are closed and all the 
switches in the remaining four 4066 
chips are opened, the three 555 timers 
will be connected to the computer 
while the remaining elements will not 
affect the data bus. Thus, by selectively 
controlling the individual 4066 chips, 
the single parallel port can be multi- 
plexed quite easily. 

The selective control is provided by 
a 4556 CMOS binary to l-of-4 decoder 



integrated circuit (figure 7). By placing 
the binary representation of the num- 
bers to 3 on the input connections of 
the 4556 (labeled DlOl and D102 in 
figure 7) any one of the four output con- 
nections can be activated (actually, de- 
activated since the selected output is 
brought to ground potential]. There- 
fore, by using the computer to pass the 
numbers to 3 to the 4556, any one of 
the three separate devices illustrated in 
figure 7 can be accessed. The fourth 
possibility is used to isolate all three 
devices from the data bus. Since the 
parallel port is in use, the 4556 decoder 
is connected to the IEEE-488 port, 
which is also available on the back of 
all PET computers. This port can be 
used as a data port in much the same 
manner as the parallel port*. The only 



difficulty arises when the IEEE-488 port 
is to be used to communicate with 
another device, such as a printer or disk 
drive. Since the 4556 is also connected 
to the IEEE-488 bus, the different 
devices attached to the 4556 would be 
accessed whenever the state of the two 
data lines, DlOl and D102, changed. 

This problem is circumvented by 
using the enable command on the 4556 
decoder. If the enable command is not 
activated the chip automatically ig- 
nores all input. Thus, irrespective of 
the contents of the IEEE-488 data bus, 
the devices multiplexed to the parallel 
port will not be disturbed if the enable 
command is not activated. The CB2 
control line, available at the parallel 
port and accessible to the computer 
program, is used to control the 4556 



Figure 7: Schematic of the PET parallel port multiplexing circuit described in the text. 
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enable command. Details concerning 
the PET input/ output ports axe avail- 
able from a variety of sources 
(references 4, 6-8] and will not be 
discussed here. 

To carry out the control function, 
the microcomputer must generate an 
analog signal that must be passed to the 
flow controllers and maintained, even 
after the flow controller interface is 
removed from the data bus. The 
method employed for digital to analog 
(D/AJ conversion utilizes an arrange- 
ment of precision resistors called an 
R/2R ladder network. Details of this 
method can be found in the literature 
in reference 9. 

Essentially, the device produces a 
voltage output proportional to the 
value of the binary number applied to 
the network input. The output from 
the R/2R network should be buffered'°. 
What is done with the output depends 
upon the specific application at hand. 
For example, if a range of voltage is re- 
quired, the buffered output can be used 
with a Darlington network. If a current 
range is required, the buffered output is 
used to drive a current source. In this 



particular example, the flow con- 
trollers for the cooling jacket and the 
steam line to the CSTR are current-to- 
pressure devices. This means that a 
range of input current (4 mA to 20 mA, 
in this case) is required to control the 
rate of fluid flow from no flow to full 
flow. The fraction of full flow is thus 
determined by the number (0 produces 
no flow, 255 produces full flow) placed 
on the PET parallel port by the com- 
puter program. The circuit currently in 
use with the CSTR that provides this 
range of current is shown in figure 8. 

The binary number passed to the in- 
put of the R/2R network is maintained 
after the flow controller interface is 
isolated from the data bus by using 
CMOS 4042 latches (figure 7). The 
latch passes a binary number from the 
input to the output connections upon 
command, and then, on command, 
"latches" or holds that number on the 
output connections irrespective of 
what happens at the input. Thus, when 
one of the flow controller interfaces is 
selected, a number is placed on the I/O 
port reflecting a desired setting for the 
controller. This number is latched so 
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Figure 8: Schematic of the current source 
used to actuate the flow controllers 
described in the text. The LOAD indicated 
in the schematic represents the flow 
controller. The circuit is designed to 
produce a linear variation in output 
current from 4 mA at zero volts (0 binary) 
to 20 mA maximum (255 binary). See text 
for additional details. 
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Figure 9: Typical high resoiution, dot matrix printer output from a control experiment 
using the CSTR. The curve marked "B" is a continuation of curve "A". The center line 
in each trace indicates the set-point temperature, and the trace Is the output-stream 
temperature of the CSTR. The response time to a load change for the CSTR is 
typically 4 - 5 minutes. The time between the first trough and the second peak on plot 
"A" Is approximately 40 minutes. The control strategy used in this experiment is called 
proportional-integral (PI). 
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that it will remain as input to the R/2R 
network. The 4042 IC is then isolated 
from the I/O port, which becomes 
available for communication with 
another device. 

The control of the multiplexed port, 
the temperature measurements, and 
the control of the flow controllers are 
accomplished entirely with software. A 
typical graph of the output temperature 
for the CSTR, as it responds to a load 
change, is shown in figure 9. Note in 
the figure caption the much longer 
time scales relative to the air bath ex- 
periment. With the CSTR the students 
receive first-hand experience with the 
problems associated with control of 
equipment — especially with the slow 
response time characteristic of many 
industrial devices. 

Usually students don't become in- 
volved with the complicated CSTR un- 
til the senior laboratory course. The 
control experiments in the senior 
laboratory course primarily involve 
studies of the dynamic response of the 
CSTR to load changes when different 
control strategies (algorithms) are used. 

In the final article of this series ,we 
will discuss the interfacing of micro- 
computers to complex scientific instru- 
mentation. Specific examples involving 
gas chromatography and converting a 
single beam spectrophotometer into an 



effective dual beam instrument will be 
presented. 
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Measurement of a 35mm 
Focal Plane Shutter 



by Mike Dougherty 



The program SHUTTER uses 
inexpensive hardware to 
measure the accuracy and 
repeatabiiity of the focal plane 
shutter found in most single- 
lens reflex cameras. 



SHUTTER 

requires: 

Atari 800 (may be modified for 
others) and a few electronic 
components 



Acting as the logic controller for hard- 
ware sensors, a computer can be used 
to measure events beyond human capa- 
bilities. One such event is the move- 
ment of a camera's focal plane shutter. 
A typical focal plane shutter is capable 
of exposing film from 1/ 1000th of a 
second to a full second. However, it is 
difficult to determine the shutter's ac- 
curacy. The following program, accom- 
panied by simple hardware, gives the 
computer/photographer hobbiest a 
means to measure the accuracy and re- 
liability of a focal plane shutter. 
Although SHUTTER was written for an 
Atari 800 personal computer, the basic 
concepts are transportable to other sys- 
tems and the program can be converted. 

Definitions 

A focal plane shutter consists of two 
opaque curtains that move in front of 
the photographic film. Light comes 
through these curtains, which form a 
window or opening, and strikes the 
film. The amount of exposure is deter- 
mined by the distance between the two 
curtains and the speed that the curtains 
move across the film. Looking from the 
back of my camera, the curtains move 
from right to left, exposing a vertical 
slice of film. This particular camera 
maintains a constant curtain speed 
while changing the distance between 



the curtains for different exposures. It 
is called a focal plane shutter because, 
for the best performance, the shutter 
must be placed as close to the plane of 
focus as possible. 

The photographer is concerned with 
two inaccuracies in this type of shutter 

— actual exposure and exposure con- 
sistency. Obviously, for good photo- 
graphic results, the shutter should pro- 
duce the desired exposure. However, 
any inaccuracy in the shutter may be 
corrected by changing the lens opening 

— as long as the shutter is consistent. 
Thus, in practice, consistency is usually 
more important than absolute accuracy. 

Note that there is much practical 
latitude in the photographic process. 
Exposure errors as large as 33% ('/a of 
an f/stop) may be unnoticed by some. 
Further, errors in exposure can often be 
corrected. However, each compensa- 
tion or correction also compromises 
the final photographic result. To 
achieve the maximum photographic 
quality possible, every phase of the 
photographic process must be under- 
stood and utilized to its fullest degree. 



The first step, exposure of the film, is 
no exception. 

Haidwaie 

The light sensor used by SHUTTER 
consists of two elements: a phototran- 
sistor and a lOK resistor. The photo- 
transistor (Radio Shack #276-130) does 
the actual work of detecting the light, 
while the resistor limits the current 
flow into the computer. The typical cir- 
cuit for one light sensor is shown in 
figure 1. 

Figure 1: Phototransistor Light Sensor 
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Listing 1 



SHUTTER 



by Mike Dougherty 



100 REM .. 

105 REM 

110 REM . . 

115 REM 

120 REM A program to measure the shutter 

125 REM speed of a focal plane shutter 

130 REM using phototransi stors. 

135 REM 

140 REM 

145 REM 

150 REM 

155 REM 

1010 DIM SAMPLE < 9 ) ,KEY«(1> 

1020 GRAPHICS 0:POKE 752,1 

1030 PRINT "Initializing USR functions" 

1110 GOSUB lOOOOlREM INIT USR FUNCTIONS 

1210 F= 1.79* 1000000: REM ATARI CLOCK IS 1.79 MHZ 

1220 P0RT=54017:REM JOYSTICK I/O PORT 

1230 DELAY=0:REM USR DELAY CONSTANT 

1240 ERR0R=0:REM DETECTOR ERROR 

1250 CDIST=24.ib4:REM DISTANCE BETWEEN VELOCITY SENSORS 

1300 REM 

1301 REM ... Main Program 

1302 REM 

1303 REM POLL USER FDR WHICH OF THE 

1304 REM THREE FUNCTIONS TO EXECUTE. 
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While in the dark, the phototran- 
sistor is turned off and the current 
flows into an I/O pin of the computer 
with a voltage of + 5V. When the light 
exceeds a specific threshold level, the 
phototransistor turns on and current 
flows to ground giving a zero voltage at 
the I/O pin. Thus, a computer I/O pin 
will be a logic 1 ( + 5 V) in the dark and a 
logic (ground] in sufficient light. For 
the Radio Shack phototransistor, suffi- 
cient light consists of a 50-watt reflec- 
tor bulb (available from Sears) at a 
distance of 50 cm from the phototran- 
sistor. To measure the focal plane shut- 
ter exposure, the program simply 
measures the time that the I/O pin 
connected to the phototransistor re- 
mains low. 

Unfortunately, there is a major 
source of error when measuring the 
highest shutter speeds. This error 
originates from the finite size of the 
light sensitive silicon in the phototran- 
sistor — 0.5 millimeters (mm| in my 
case. Since this is not infinitely small 
(or small enough to ignore), the shutter 
time measured will be longer than it 
should be. As the two curtains in my 
camera move toward the left, the I/O 
pin goes to zero when the left curtain 
uncovers the right edge of the light- 
sensitive silicon. (The response is vir- 
tually immediate since the source light 
is bright enough to drive the photo- 
transistor into saturation with only a 
fraction of the silicon exposed to light.) 
The I/O pin will remain zero until the 
right curtain covers the left edge of the 
light-sensitive silicon. Instead of 
measuring the exposure time for an in- 
finitely thin slice of film, a slice of 0.5 
mm in width is measured. For my 
camera at 1/ 1000th of a second, this er- 
ror becomes significant. 

To eliminate the finite detector size 
error, the time required to cross the 
light sensitive silicon was determined 
and subtracted from the measured 
shutter time. To measure this time er- 
ror, the velocity of the shutter curtains 
and the size of the light-sensitive area 
were measured. The light detector 
width, WIDTH, was measured by an 
accurate drafting scale and found to be 
0.5 mm. (For the purposes of this arti- 
cle, I shall assume that this measure- 
ment contains no error!) 

To measure the shutter velocity, 
only the velocity of the left curtain had 
to be measured. The right curtain must 
move at the same speed or one side of 
the film would receive more exposure 



Listing 1 (Continued) 



1 305 
1310 
1315 
1320 
1322 
1324 
1330 
1410 
1420 
1 430 
1435 
1436 
1437 
1440 

1 450 
1460 
1470 
2000 
2001 
20C>2 
20'03 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
21 10 

2 1 20 
2 1 30 
2140 
2 1 50 
2160 
2170 
2180 
2 1 90 
'2200 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3C>09 
3(jl0 
3011 
3012 
30 1 3 
3014 
3015 
3016 
3017 
3 1 1 
3 1 20 
3130 
3 1 40 
3150 
3160 

3 1 70 

3 1 SO 
3 1 90 
3195 
3200 
3210 
3220 
4000 
4001 
4002 
4003 
4004 

4 005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4i 10 
4 1 20 
4 1 30 
4140 



REM 

6RAPHICS O 
POSITION 5,5:PRINT 



POSITION 
POSITION 



7,7!pRINT 
7,8:PRINT 



POSITION 7,9:PRINT 



'Select function" 
' M - Monitor" 
' V - Velocity" 
' S - Shutter" 



,5: INPUT KEY*: REM INPUT USER CHOICE 
THEN GOSUB 2000: GOTO 1310 
THEN GOSUB 3O00:GaT0 1310 
THEN QOSUB 4000: GOTO 1310 



POSITION 2: 

IF KEY*="S 

IF KEY«="V 

IF KEY*="M 

REM 

REM ... SOUND ERROR INPUT 

REM 

SOUND 0, 150, 10,8 

FOR WAIT=0 TO 50: NEXT WAIT 

SOUND 0,0, 0,O 

GOTO 1320 

REM 

REM ... Shutter Function 

REM 

REM This function measur-es the 

REM actual exposure time of the 

REM shutter and computes the 

REN relative error. The variable 

REM ERROR should be set via the 

REM Velocity function prior to 

REM running this function. 

REM 

GRAPHICS 

PRINT "E;:pected time in ms "; 

INPUT EXPECT 

R0UTINE=1536:REM 1ST USR FUNCTION 

MASK1=2:REM BIT #1 PHOTOTRANSISTOR 

MASK2=0:REM NOT USED 

GOSUB 9000 

PRINT "Shutter error: ": (EXPECT-AVE) /EXPECT* 100; 

GOSUB 8000 

RETURN 

REM 

REM ... Velocity Function 

REM 

REM This function measures the 

REM leftward velocity of the 

REM shutter curtains. This 

REM speed is used to compute the 

REM error due to a finite sensor 

REM size. The variable CD I ST, 

REM measured with the aid of the 

REM Monitor function, is combined 

REM with the detector width to 

REM compute ERROR. This function 

REM should be run prior to the 

REM Shutter function for every 

REM shutter speed with a different 

REM shutter curtain velocity. 

REM 

GRAPHICS 

PRINT "Detector width in mm ": 

INPUT WIDTH 

ROUT I NE= 1664: REM 2ND USR FUNCTION 

MASKl=l:REM BIT #0 PHOTOTRANSISTOR 
MASK2=4:REM BIT #2 PHOTOTRANSISTOR 

ERROR=0:REM COMPUTING NEW ERROR 

GOSUB 9000 

ERROR=(WIDTH«AVE)/CDIST 

ERROR=INT (ERROR* 100+0. 5) /lOO 

PRINT "Detector error: "; ERROR;" ms" 

GOSUB 8000 

RETURN 

REM 

REM ... Monitor Function 

REM 

REM This function is used to 

REM assist measuring the distance 

REM between the velocity sensors. 

REM This sensor distance, CDIST, 

REM should be edited into line 

REM 12S0 of SHUTTER. The Monitor 

REM function monitors all three 

REM phototransistor inputs. Press 

REM any key to e^it. 

REM 

GRAPHICS 

CHANNELS=PEEK (PORT) : REM SAMPLE JOYSTICK #3 i< #4 

FOR 1=0 TO 2:REM ONLY FIRST 3 BITS 

CHAN=CHANNELS-INT(CHANNELS,'2) «2:REM ISOLATE BIT 
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Listing 1 (Continued) 



4150 PRINT "Bit #";!;": ";CHAN;" "; 

4160 CHANNELS= INK CHANNELS/ 2) 

4 170 NEXT I 

4175 PRINT 

4180 IF PEEK (764) =255 THEN 4120 

4190 POKE 764,255 

4200 RETURN 

8000 REM 

8001 REM ... Pause subroutine 

8002 REM 

8003 REM Wait until a key is pressed 

8004 REM with a -flashing prompt. 

8005 REM 

8110 POKE 752, 1 

8120 POSITION 7,22:PRINT "Hit any KEY to continue"; 

B140 POSITION 7.22!PRINT " "; 

8160 IF PEEK(764)=255 THEN B120 

B170 POKE 764,255 

BIBO RETURN 

9000 REM 

9001 REM ... Sample Phototransi stors 

9002 REM 

9003 REM This subroutine samples ten 

9004 REM shutter releases and computes 

9005 REM the simple statistics o-f 

9006 REM average, AVE, standard deviation, 

9007 REM SD, and the normalized standard 

9008 REM deviation (NSD). This subroutine 

9009 REM calls the USR -function starting 

9010 REM at the memory location ROUTINE. 

9011 REM The bit masks, etc., are 

9012 REM parameterized to allow this 

9013 REM subroutine to be used by both 

9014 REM the Velocity -function and the 

9015 REM Shutter -function. 

9016 REM 
9100 PRINT 

9110 FOR LQOP=0 TO 9 STEP 1 

9120 IF PEEK (PORT) 0255 THEN 9 120: REM WAIT UNTIL SHUTTER CLOSED 

9130 C YCLES=USR ( ROUT I NE , PORT , M ASK 1 , MASK2 , DELAY ) 

9135 REM CONVERT MACHINE CYCLES TO MICROSECONDS, THEN MILLISECONDS 

9140 TIME=( (37+5»DELAY) *CYCLES) /F 

9150 SAMPLE(LOOP) = INT ( T IME* 100000+0. 5) /100-ERROR 

9160 PRINT " TIME *";L0OP;" IN 1/1000 SEC: "; SAMPLE (LOOP ) 

9170 ME XT LOOP 

9180 SOUND 0, 100. 10. 15:F0R WAIT=0 TO 2:NEXT WAIT:SOUND 0,0,0,0 

9185 REM COMPUTE THE STATISTICS 

9190 AVE=0 

9200 FOR LQOP=0 TO 9 

9210 ftVE=AVE+SAMPLE (LOOP) 

9220 NEXT LOOP 

9230 AVE=AVE/10 

9240 VAR=0 

9250 FOR LQOP=0 TO 9 

9260 VAR=VAR+ (SAMPLE (LOOP) -AVE) ■'■2 

9270 NEXT LOOP 

92S0 SD=SQR(VAR/9) 

9290 PRINT :PRINT "AVERAGE TIME: " ; AVE 

9300 PRINT "STANDARD DEVIATION: " ; SD 

9310 PRINT "NORMALIZED SD (NSD): ";SD/AVE«100 

9320 RETURN 

lOOOu REM 

10001 REM ...USR P O K E 

10002 REM 

10003 REM Poke the USR -functions into 
l(;)(j04 REM reserved page a memory: 

10005 REM *0600 - *06FF. 

10006 REM 

100 10 DIM BYTE* (2) 

10O20 TRAP 102OO:REM EXIT WHEN NO MORE DATA 

10030 READ ADDRESS: REM USR STARTING ADDRESS 

10100 READ BYTE*: REM READ MACHINE CODE BYTE 

I'JllO IF BYTE*="**" THEN SOUND 0,0,0,0:QOTO 10030:REM 

END OF THIS USR FUNCTION 
10120 GOSUB 10500: REM COMPUTE BYTE 
10130 POKE ADDRESS, BYTE: REM PUT IN MEMORY 
10140 ADDRESS=ADDRESS+1 :REM NEXT MEMORY ADDRESS 
10150 GOTO 10100 
1 020'0 RETURN 

10500 REM 

10501 REM ... BVTE$ — > BYTE 

10502 REM 
10510 BYTE=0 

1 ■:i520 V=ASC ( BYTE* ( 1 ) ) : GOSUB 1 0600 
10530 V=ASC(BVTE* (2) ) :GQSUB 10600 
10540 RETURN 

I060(:i REM (continued) 



than the other side. Two additional 
phototransistors were added to the sen- 
sor, one at each edge of the film open- 
ing. These phototransistors were used 
to measure the time from when the left 
curtain passed the right edge of the first 
sensor until the left curtain passed the 
right edge of the second sensor. The 
distance between the two photo- 
transistors was determined by monitor- 
ing the two light sensor I/O pins via 
the SHUTTER Monitor function. On 
my hardware sensor, the distance 
measured was 24.64 mm. (Again, for 
this article, I will assume that this 
measurement contains no error.) 

Once the focal plane curtain veloc- 
ity, V, is known, the time error may be 
computed: 

ERROR = WIDTH/V 

My focal plane shutter curtain traveled 
the 24.64 mm of CDIST in 9.24 milli- 
seconds (ms)-. This yields a velocity of 

V = 24.64mm/9.24 ms = 2.67 mm/ms = 
5.97 mph 

For the 0.5 mm detector: 

ERROR =0.5 mm/2.67 mm/ms = 0.19 ms 

With a 1/ 1000th of a second (1 ms) 
shutter speed, ERROR represents a 19% 
relative error. 

The final hardware sensor consisted 
of three phototransistors mounted 
horizontally in a cardboard case — in- 
expensive but effective! This case was 
attached to the back of the camera 
(behind the focal plane shutter) with 
the phototransistors positioned in the 
film plane. A 50- watt reflector lamp 
was positioned 50 cm from the front of 
the camera directing light toward the 
phototransistors mounted on the other 
side of the shutter. The shutter 
measurement was performed without a 
lens mounted on the camera. The three 
sensor outputs were connected from 
right to left (looking from the back) to 
the least significant bits [bit #0, bit #1, 
and bit #2) of the Atari joystick #3 
(STICK(2)) input port. This joystick is 
located at the hardware register address 
54017, PORTS. All joystick ports are 
configured as input ports by the Atari 
operating system upon power up. Both 
the + 5V and ground are obtained from 
the 9-pin joystick port. Here are the 
joystick pinouts: 
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Pin #1 Right velocity phototransistor 

(Bit #0) 
Pin #2 Shutter phototransistor (Bit#l) 
Pin #3 Left velocity phototransistor 

(Bit #2) 
Pin #7 + 5V power 
Pin #8 Ground 

Be sure to read the Atari Hardware 
Manual (available from Atari) before 
blindly wiring to the joystick connec- 
tors. Damage to the Atari may result 
from improper use. Therefore, most of 
my hardware projects use PORTB; in 
case of a faulty design, PORTA 
(joysticks #1 and #2) is still available 
for Star Raiders! 

Software 

SHUTTER is divided into three 
functions that allow the calibration of 
the shutter sensor hardware and 
measurement of the focal plane shut- 
ter. The BASIC listing of SHUTTER is 
given in listing 1 . 

The first function. Monitor, allows 
the user to measure the distance be- 
tween the two velocity phototran- 
sistors, joystick I/O bits #0 and #1. 
With an accurate scale mounted to the 
sensor, a straight edge is manually 
moved in the same direction as the 
focal plane shutter. As the first 
phototransistor is uncovered, bit #0 
goes low; call this location on the scale 
Dl. Move the screen toward the left 
until the third phototransistor is un- 
covered and bit #2 goes low; call this 
location on the scale D2. The absolute 
value of D2-D1 is the calibration 
distance, CDIST, initialized in line 
number 1250 of SHUTTER. This value 
was measured as 24.64 mm on my 
specific sensor. Modify line 1250 as 
necessary for your own SHUTTER sen- 
sor hardware. The monitor function is 
exited by pressing any key except 
BREAK. 

The other two functions utilize a 
statistical sample of ten shutter 
releases, performed by the subroutine 
in lines 9000 to 9320. This subroutine 
computes the average, the standard 
deviation, and the normalized standard 
deviation. The normalized standard 
deviation, NSD, is defined as 

NSD = (SD/AVE)»100 

The NSD is used to compare the con- 
sistency of one shutter speed to 
another. The sample subroutine rounds 
the measured times to the nearest hun- 
dredth of a millisecond. All times are 



Listing 1 {con 

10601 

10602 

10603 

10610 

10620 

10630 

1 0640 

1 0700 

10701 

10702 

10705 

10710 

10715 

10720 

10725 

10730 

10735 

10740 

10745 

10750 

10755 

1 0760 

10765 

10770 

10775 

10800 

10805 

10810 

10815 

10820 

10825 

1 0830 

10835 

10840 

10845 

10850 

10855 

10860 

10865 

10970 



tinued) 



ADD HEX VALUE OF ASCII 
"V" TO BYTE. 



REM . . 

REM . . 

REM 

IF V<5e THEN BYTE=BYTE»16+V-48 

IF V>57 THEN BYTE=BYTE» 16+V-55 

SOUND 0,BYTE, 10,8 

RETURN 

REM 

REM U S R DATA 

REM 

DATA 1536 

DATA 68,68,85,CC,68,85,CB 

DATA 68 , 68 , 85 , CD , 68 , 68 , 68 , 68 , 85 , CE 

DATA A9,00,SD,2F,02,A5, 14 

DATA C5, 14,F0,FC,A9,2O 

DATA SD , OE , D4 , A9 , 00 , 85 , 04 

DATA S5,D5, AO,00,B1,CB 

DATA 25, CD, DO, FA 

DATA 18, A5, 04,69,01, 85, 04 

DATA A5 , 05 , 69 , 00 , 85 , 05 , BO , OE 

DATA A6,CE,FO,04,CA,00,FD 

DATA EA,B1,CB,25,C0,F0,E3 

DATA A9,60,8D,OE,04 

DATA A9,22,80,2F,02,60 

DATA «« 

DATA 1664 

DATA 68,68,e5,CC,68,85,CB 

DATA 68, 68, 85, CO, 68, 68, 85, CF, 68,68, 85, CE 

DATA A9,00,80,2F,02,A5, 14 

DATA C5, 14,F0,FC,A9,20 

DATA 80 , OE , 04 , A9 , 00 , 85 , 04 

DATA 85,05,AO,00,B1,CB 

DATA 25, CD, DO, FA 

DATA 18, A5, 04, 69, 01,85,04 

DATA A5, 05, 69, 00, 85, 05, BO, OE 

DATA A6,CE,F0,04,CA,D0,FD 

DATA EA,B1,CB,25,CF,D0,E3 

DATA A9,60,8D,0E,D4 

DATA A9,22,80,2F,02,60 

DATA «« 



Listing 2 

0100 
OHO 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0315 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 



VELOCITY USR FUNCTION 
(LISTING #2> 



This function measures the time 
that a shutter ta^ces to travel 
between the velocity phototransi stars. 

Call the Velocity Function by: 

X=USR < 1 664 , PORT , MASK 1 , MASK2 , DELAY ) 

where 

PORT - The I/O port address 
MASKl - "AND" mask to isolate 

the first sensor 
MASK2 - "AND" mask to isolate 

the second sensor 
DELAY - for the delay loop. 

Velocity performs the following: 

Initialize the variables 

Disable the Video DMA 

Disable the Real Time Clock interrupt 

Initialize the "timer", COUNT 

Wait until (PORT AND MASKl) = 

DOUNTIL (PORT AND MASK2) = 
Increment COUNT by one 
Wait in WAITLP DELAY times 

ENOOO 

Enable the Real Time Clock 

Enable the Video DMA 

Return the value COUNT 

The actual time of the DOUNTIL 
loop is 37+5«0ELAY machine 
cycles. With OELAY=0 and the 
Atari 800 Tuning at 1.79 MHZ, 
each loop represents about 
20.67 microseconds. 
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Listin 


g 2 Icon 


twued) 

0530 














0540 
0550 


;;:;;: 


; ; : ; 


;;;;•;;;:; 


;;;;;>;>;;; 
















0560 


; DEFINE THE VARIABLES USED 






0570 


; 








OOCB 




0580 


PORT 


= 


♦ OOCB 


STORAGE FOR THE PORT ADDR 


OOCD 




0590 


MASKl 


= 


«OOCD 


FOR FIRST SENSOR 


OOCF 




0600 


MASK2 


= 


$OOCF 


FOR SECOND SENSOR 


OOCE 




0610 


DELAY 


= 


$OOCE 


FOR DELAY FACTOR 


00D4 




0620 


COUNT 


= 


$O0D4 


USR RETURN VALUE 


0014 




0630 


RTC 


= 


«0014 


REAL TIME CLOCK 


022F 




0640 


SDMACT 


= 


«022F 


DMA CONTROL SHADOW REGISTER 


D40E 




0650 
0660 
0670 
0680 
0690 


NMIEN 




«D40E 


NMI INTERRUPT ENABLE REGISTER 






5 ; 5 ; ; 5 

5 


; 5 ? 5 


s ; ;;?!;? s ; 


;;;;;;;;>;>; 






0700 










0000 




0710 
0711 


!• 


*= 


«0680 


DEFINE START IN FREE RAM 






0712 
0720 
0730 


; INITIALIZE USR VARIABLES 


0680 


68 


VEL 


PLA 




NUMBER OF ARGUMENTS 


0681 


68 


0740 




PL A 




FIRST USR ARGUMENT 


0682 


85CC 


0750 




STA 


PORT+1 


MSB OF PORT ADDRESS 


0684 


68 


0760 




PLA 






0685 


85CEI 


0770 




STA 


PORT 


LSB 


0687 


68 


0780 




PLA 




SECOND USR ARGUMENT 


0688 


68 


0790 




PLA 




ONE BYTE ONLY 


0689 


85CD 


0800 




STA 


MASKl 


FOR FIRST SENSOR 


068B 


68 


0810 




PLA 




THIRD USR ARGUMENT 


068C 


68 


0820 




PLA 




ONE BYTE ONLY 


068D 


85CF 


0830 




STA 


MASK2 


FOR SECOND SENSOR 


068F 


68 


0840 




PLA 




FOURTH USR ARGUMENT 


0690 


68 


0850 




PLA 




ONE BYTE ONLY 


0691 


85CE 


0860 
0870 




STA 


DELAY 


DELAY LOOP CONSTANT 






0880 


; DISABLE THE VIDEO DMA 






0890 


f 








0693 


A900 


0900 




LDA 


#»00 




0695 


8D2F02 


0910 




STA 


SDMACT 


CLEAR SHADOW REGISTER 


0698 


A514 


0920 




LDA 


RTC 


WAIT UNTIL VBLANK SETS HARDWARE 


069A 


C514 


0930 


TICK 


CMP 


RTC 


VBLANK UPDATES CLOCK 


069C 


FOFC 


0940 
0950 




BEQ 


TICK 


VBLANK HAS NOT YET OCCURRED 






0960 


; DMA 


SHUT 


DOWN, TURN 


OFF VBLANK 






0970 


; INTERRUPT 










0980 










069E 


A920 


0990 




LDA 


#420 




06A0 


8D0ED4 


1000 
1010 




STA 


NMIEN 


DISABLE NMI 






1020 


■ INITIALIZE THE LOOP 


COUNTER 






1030 


; 








06A3 


A900 


1040 




LDA 


#«00 




06A5 


S5D4 


1050 




STA 


COUNT 


THIS IS THE USR LOCATION 


06A7 


85D5 


1060 
1070 


! 


STA 


COUNT+1 


TO RETURN A VALUE 






1080 


; WAIT 


UNTIL FIRST SENSOR GOES LOW — 






1090 


; I.E. 


THE 


CURTAIN UNCOVERS IT 






1 1 00 


; 








06A9 


AOOO 


1110 




LDY 


#«00 


FOR INDIRECT INDEXED MODE 


06AB 


BICB 


1120 


SENS 1 


LDA 


<PORT) , Y 


GET I/O PORT 


06AD 


25CD 


1130 




AND 


MASKl 


ISOLATE FIRST SENSOR 


06AF 


DOFfl 


1 1 40 
1150 




BNE 


SENSl 


NO LIGHT YET 






1160 


• MAIN 


TIMING LOOP 








1170 










06B1 


18 


1180 


TIME 


CLC 




COUNT THIS TIME IN THE LOOP 


06B2 


A5D4 


1 1 90 




LDA 


COUNT 


INCREMENT THE LOOP COUNTER 


06B4 


6901 


1200 




ADC 


#«01 


LSB 


06B6 


85D4 


1210 




STA 


COUNT 




06B8 


A5D5 


1220 




LDA 


COUNT+1 




06BA 


6900 


1230 




ADC 


«»00 


MSB 


06BC 


85D5 


1240 




STA 


COUNT+1 




06BE 


BOOE 


1250 




BCS 


RET 


TOO LONG ERROR 


06CO 


A6CE 


1260 




LDX 


DELAY 


DELAY IF NEEDED 


06C2 


F004 


1270 




BEQ 


SENS2 


NO DELAY USED 


06C4 


CA 


1280 


WAITLP 


DEX 




WAIT A SMALL BIT 


06C5 


DClFD 


1290 




BNE 


WAITLP 




06C7 


EA 


1300 




NOP 




ADJUST TIMING 


06C8 


BICB 


1310 


SENS2 


LDA 


(PORT),Y 


CHECK SECOND SENSOR 


06CA 


25CF 


1320 




AND 


MASK2 


ISOLATE BIT 


06CC 


D0E3 


1330 
1 340 


! 


BNE 


TIME 


STILL IN THE DARK 






1350 


; COUNT CONTAINS THE 


NUMBER OF TIMES 














(conUnued) 



corrected by the current value of the 
variable ERROR. 

Both functions use an identical tim- 
ing loop written at the assembler level 
and entered as machine code. This loop 
has a time resolution of 37 + 5* DELAY 
cycles. For the purposes of this article, 
the variable DELAY was set to zero. 
Thus, every unit of time counted by the 
USR functions represents 37 machine 
cycles. Since the Atari 800 runs with a 
clock frequency of 1.79 MHz this loop 
has a resolution of 20.67 microseconds. 
To accurately use the timing loop, all 
video Direct Memory Access (DMA) 
and Atari operating system interrupts 
must be disabled. For a complete ex- 
planation, refer to my previous article 
"A/D Conversion Using a 555 Timer 
IC," MICRO 52:14, as well as the 
manuals >ltari Operating System User's 
Manual and Atari Hardware Manual. 

The second function of SHUTTER, 
Velocity, allows the user to measure 
the velocity of the focal plane shutter 
curtain and compute the value of ER- 
ROR. The Velocity function uses the 
calibration distance, CDIST, which 



TIRED OF TYPING? 
MICRO has the solution. 

Order a diskette of three recent 
utility programs for the Apple. For 
only $10.00, plus $2.00 shipping 
and handling, you will receive a 
DOS 3.3 diskette containing the 
assembled listings of: 
Applesoft Variable Dump by 
Philippe Francois (MICRO, April 
1982) 

Straightforward Garbage Collec- 
tion for the Apple by Comelis 
Bongers (MICRO, August 1982) 

COMPRESS by Barton Bauers 
(MICRO, October, 1982) 

Please send check, money order, or 
VISA or MasterCard number. Only 
prepaid orders accepted. If you 
missed the above issues of MICRO 
they can be ordered now! Include 
$2.50 for each issue. 
Send orders to: 

Apple Utility Disk 
MICRO, P.O. Box 6502, 
Chelmsford, MA 01824 



No. 56 - January 1983 



MICRO - The 6502/6809 Journal 



49 



SIMULATIONS/APPLICATIONS 



was measured with the aid of the 
Monitor function. Velocity prompts for 
the size of the Ught-sensitive area of the 
shutter phototransistor, bit #1 — in my 
case, 0.5 mm. After the ten shutter 
releases, the average time between the 
two velocity phototransistors, AVE, is 
used to compute ERROR. In my 
camera, the shutter curtain took 9.24 
ms to travel the 24.64 mm of CDIST. 
With a detector WIDTH of 0.5 mm, the 
following proportion holds tme: 



9.24 ms 



24.64 mm 



ERROR ms 
0.5 mm 



Solving for ERROR yields: 

ERROR = ( (9.24 ms)*(0.5 mm))/ 24.64 
mm = 0.19 ms 

The Velocity function uses the Atari 
USR function of listing 2. 

The third function of SHUTTER, 
Shutter, allows the user to measure the 
shutter exposure in milliseconds and to 



How to run a listing in 

MICRO'S Software/Hardware 
Catalogs 

The Software and Hardware 
Catalogs are provided as a ser- 
vice both to our readers and to 
the manufacturers. These entries 
are not MICRO reviews, but des- 
criptions provided by the 
manufacturer. 

To run a free listing in either 
catalog, a company fills out the 
appropriate form or merely mails 
in their material in the same for- 
mat that appears in the magazine. 

We try to limit entries to one 
company per month, on a first- 
come-first-serve basis. 

If you sell products our readers 
should l<now about, write to Soft- 
ware/Hardware Catalog, MICRO, 
P.O. Box 6502, Chelmsford, MA 
01824 



Listing 


2 (continued) 








1360 ; 


THAT THE TIME LOOP WAS EXECUTED. 






1370 ; 


THIS WILL BE RETURNED BY THE USR 






13S0 5 


FUNCTION 






1390 ; 








1400 ; 


ENABLE DMA AND INTERRUPTS 






1410 ; 




OibCE 


A960 


1420 RET LDA »»60 


06DO 


8D0ED4 


1 430 


STA NMIEN RESTORE REAL TIME CLOCK 


06D3 


A'?22 


1440 


LDA #922 


06 D5 


aD2F02 


1 450 


STA SDMACT RESTORE THE VIDEO SCREEN 


06D8 


60 


1460 


RTS RETURN THE COUNT 


06D9 




1470 


.END 


Listing 


3 


0100 ; 


SHUTTER USR FUNCTION 






0110 J 


(LISTING »3) 






0120 ; 








0130 ; 








0140 ; 


This USR -function measures the 






0150 ; 


number of SAMPLE loops that are 






0160 i 


executed while the phototransistor 






0170 ; 


line is low. Since each SAMPLE 






0180 J 


loop takes 37+5«DELAY machine 






0190 ; 


cycles to execute, the USR routine 






0200 ; 


measures actual time. 






0210 i 








0220 ; 


Call the USR function by: 






0240 ; 


X = USR ( 1536, PORT , MASK! , MASK2, DELAY) 






0250 ; 








0260 ; 


where: 






0270 ! 








0280 ! 


PORT - The address of the I/O port 






0290 ; 


MASKl - To isolate the phototransistor 






0300 ; 


sensor line 






0310 ; 


MASK2 - Not used ((.'elQcity uses 






0320 s 


this argument) 






0330 ; 


DELAY - Delay loop variable 






0340 ; 








0350 








0360 ; 








0370 ; 


The Shutter USR function performs 






03B0 ! 


the following steps: 






0390 ; 








0400 ; 


Initialize the USR variables 






04 lO 


Turn off the Video DMA 






0420 


Turn off the Real Time Clod; 






0430 


Initialize the loop counter, COUNT 






0440 


Wait for the eensor line to go low 






0450 


DOUNTIL the sensor line goes high 






046O 


COUNT this time thru the SAMPLE loop 






0470 


Delay for DELAY number of WAITLPs 






0430 


END DO 






0490 


Enable the Real Time CLock 






050O 


Enable the Video DMA 






OS 1 


: RETURN the COUNT 






0520 








0530 


; 






0540 
0550 


:;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;; 


5 






0560 


: 






0570 


; VARIABLE STORAGE LOCATIONS 






0580 








0590 


1 


OOCB 




0600 


PORT = «00CB FOR PORT ADDRESS 


OOCD 




0610 MASK! = *00CD TO ISOLATE SENSOR LINE 


OOCE 




0620 DELAY = «00CE DELAY VARIABLE 


00 D4 




0630 COUNT = »00D4 LOOP COUNT 


00 1 4 




0640 RTC = «0014 REAL TIME CLOCK (LSB) 


022F 




0650 SDMACT = «022F DMA SHADOW REGISTER 


D40E 




0660 NMIEN = *D40E NMI ENABLE REGISTER 






0670 








0680 








0690 


s??!?!???!*!!?!::;:*!.::;;:.!??;;!.: 






0700 








0710 




0000 




0720 
0730 
0740 


«= S0600 FREE ATARI MEMORY 






0750 


; INITIALIZE THE VARIABLES 






0760 


! 






0770 


SHUTTER 


0600 


68 


07B0 


PLA NUMBER OF USR ARGUMENTS 


0601 


68 


0790 


PLA USR ARGUMENT # 1 


0602 


85CC 


0800 


STA PORT+l ADDRESS OF I/O PORT 


0604 


68 


0810 


PLA 


0605 


B5CB 


0820 


STA PORT 



50 
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Listing 3 (continued) 






0607 68 


0830 




PLA USR ARGUMENT # 2 


0608 68 


0840 




PLA ONLY ONE BYTE 


0609 85CD 


0850 




STA MASKl "AND" MASK FOR SENSOR LINE 


060B 68 


0860 




PLA USR ARGUMENT # 3 


060C 68 


0870 




PLA — NOT USED 


060D 68 


0880 




PLA USR ARGUMENT # 4 


060E 68 


0890 




PLA ONLY ONE BYTE 


060F 85CE 


0900 
0910 : 




STA DELAY DELAY LOOP VARIABLE 




0920 ; 


DISABLE VIDEO DMA AND RTC | 




0930 ; 






06 U A900 


0940 




LDA #«00 


0613 8D2F02 


0950 




STA SDMACT TURN OFF SHADOW REGISTER 


0616 ASM 


0960 




LDA RTC VBLANK WILL SHUT OFF HARDWARE 


0618 C514 


0970 TICK 


CMP RTC WAIT TILL VBLANK EXECUTES 


061 A FOFC 


0980 
0990 ; 




BEG TICK NOT YET 


06 IC A920 


1000 




LDA ««20 SHUT OFF REAL TIME CLOCK 


06 IE 8D0ED4 


1010 
1020 ; 
1030 ; 




STA NMIEN (STOP VBLANK INTERRUPT) 




INITIALIZE LOOP COUNTER 




1040 ; 








1050 ; 


NOTE 


: THIS VARIABLE IS THE ADDRESS 




1060 ; 


OF THE 16 BIT VALUE RETURNED BY | 




1070 ; 
1080 ;' 
1090 


THE 


USR FUNCTION. 


0621 A900 




LDA ««00 


0623 85D4 


1 1 00 




STA COUNT A VALUE OF ZERO => ERROR 


0625 85D5 


1110 
1 1'2''> ; 




STA COUNT+1 




1 1 30 ; 


WAIT 


UNTIL SHUTTER UNCOVERS THE 




1 1 40 ; 


PHOTOTRANSISTOR. | 




1 1 50 : 






0627 AOOO 


1160 




LDY «*00 FOR INDIRECT INDEXED MODE 


0629 BICB 


1 170 SENSOR 


LDA ',PORT),Y GET I/O PORT 


062B 25CD 


1180 




AND MASKl ISOLATE THE SENSOR LINE 


062D DOFA 


1 1 9(;i 
1200 ; 




BNE SENSOR STILL IN THE DARK 




1210 ; 
1220 ; 
1230 se 


MEASURE THE SHUTTER TIME 


062F 18 


MPLE 


CLC COUNT THIS LOOP 


0630 A5D4 


1240 




LDA COUNT 


0632 6901 


1 250 




ADC ««01 


0634 S5D4 


1 260 




STA COUNT 


0636 A5D5 


1270 




LDA COUNT+1 


0638 6900 


1 280 




ADC ««00 


063A 85D5 


1 290 




STA COUNT+1 


063C BOOE 


1 300 




BCS RET PULSE TOO LONG — RETURN ZERO 


063E A6CE 


1310 




LDX DELAY GET DELAY VALUE 


0640 F004 


1 320 




BEQ GET 10 NO DELAY NEEDED 


0642 CA 


1330 WAITLP 


DEX DELAY FOR LONG PULSES 


0643 DOFD 


1 340 




BNE WAITLP WAIT SOME MORE 


0645 EA 


1 350 




NOP ADJUST TIMING 


0646 BICB 


1360 GET 10 


LDA (PORT),Y GET I/O PORT 


0648 25CD 


1370 




AND MASKl ISOLATE SENSOR 


064A F0E3 


1 380 
1390 ; 
1400 ; 




BEQ SAMPLE SHUTTER STILL OPEN 




RESET ATARI 




1410 ; 






064C A960 


1420 RET 


LDA ««60 


064E aD0ED4 


1430 




STA NMIEN ENABLE REAL TIME CLOCK 


0651 A922 


1440 




LDA #«22 


0653 8D2F0: 


1 450 




STA SDMACT ENABLE VIDEO DMA 


0656 60 


1 460 




RTS RETURN COUNT 


0657 


1470 




.END 


Table 1: Results of SHUTTER 


Shutter 


Expecte< 




Measured Standard Normalized Relative 


Speed 


Time 




Time Deviation Standard Error 


(Seconds) 


(ms) 




(ms) (ms) Deviation 


1/1000 


1.00 




1.122 0.048 4.263 -12.2% 


1/500 


2.00 




2.268 0.050 2.208 -13.4% 


1/250 


4.00 




4.359 0.067 1.543 - 9.0% 


1/125 


8.00 




8.516 0.037 0.429 - 6.5% 


1/60 


16.67 




16.842 0.029 0.172 - 1.0% 


1/30 


33.33 




33.276 0.106 0.319 0.2% 


1/15 


66.67 




61.987 1.885 3.041 7.0% 


1/8 


125.00 




126.595 2.652 2.095 - 1.3% 


1/4 


250.00 




269.122 3.855 1.432 - 7.6% 


1/2 


500.00 




534.875 4.295 0.803 - 7.0% 


1 


1000.00 




1024.093 4.841 0.473 - 2.4% 



compute the relative error. Since the 
Shutter function uses the current value 
of ERROR to correct for the sensor 
width, the Velocity function must be 
run prior to the first shutter measure- 
ment. (As my camera had a constant 
curtain speed, only one Velocity func- 
tion needed to be performed.) The 
Shutter function prompts for the ex- 
pected exposure time in milliseconds. 
After the ten shutter releases, the 
average value is used to compute the 
relative error from the expected value. 
This function utilizes the Atari USR 
function of listing 3. 

Results 

The results of SHUTTER as applied 
to my camera are presented in table 1 . 
As expected, several shutter speeds 
have rather large relative errors. How- 
ever, keep in mind that errors as large 
as 33% [Vi of an f/stop) are often 
visually acceptable. Thus, with all 
shutter errors below 15%, this par- 
ticular camera is reasonably accurate. 
Notice that the shutter yields excellent 
accuracy for l/60th and l/30th of a 
second, two commonly used shutter 
speeds. 

The criteria of consistency is 
measured by the normalized standard 
deviation, NSD. All shutter speeds are 
within 5% consistency with individual 
bests again going to l/60th and l/30th 
of a second shutter speeds. Over one 
half of the shutter speeds are consistent 
to within a 2% NSD. The mechanical 
consistency of my camera shutter 
seems to be very good. 

In conclusion, my camera passes 
the SHUTTER test in good condition. 
The highest shutter speeds and the 
seldom used Mth and Vi of a second 
speeds slightly overexpose the film. 
Only the l/15th of a second shutter 
speed, used for special effects with 
water subjects, underexposes the film. 
Since the consistency is excellent, 
these slight exposure errors may be 
easily corrected by adjusting the 
camera lens aperture. 



Mike Dougherty works at Martin Marietta 
Aerospace in Denver, CO. His home-based 
system presently consists of an Atari 800 
with 24K bytes of memory, the Atari 410 
recorder, and the Atari 850 Interface Module 
for future communication with single-board 
computers. You may contact him at 7659 
W. Fremont Ave., Littleton, CO 80123. 
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It's All Relative — 
Using CBM*s Relative Records 



Part 2 



by Jim Strasma 



In this second part of his series, 
Contributing Editor Jim Strasma 
discusses how to set up relative 
files and records. 

The first article of this series (MICRO 
55;37| explained a variety of tech- 
niques useful for setting up a program 
package that uses relative files. In this 
installment I create a relative file. If 
you have Chris Bennett's "Mail List 
4040, ' ' you may want to have it handy 
as you read. 

In part 1, I discussed how to set up 
most variables needed by the mail list 
and how to prepare to chain between 
the various program modules. After the 
setup module finishes, it chains to a 
short program called "4040 menu." 
This serves two functions; to separate 
the menu, ensiuing that the setup 
module is run only once per use (all 
other modules chain to and from the 
menu), and to make sure the menu is 
short enough to load quickly, as it is 
called often. 

Before you create a relative file, 
there are two features in the "4040 
menu" that you may want to add 
to other programs. First there is a 
safety line: 

1020 IF DI^OTHEN END: REM Guard 
against cold start here 

If you were to begin the program at the 
menu rather than at the setup module, 
the preset variables would be incorrect 
and the package would fail. Line 1020 
ensures that the program will halt if the 
module begins with variables cleared. 
The other menu feature is an un- 
documented command. When the 
menu appears no mention is made of a 
format module, even though it is 
callable from the menu. The format 
module was omitted to protect against 
accidentally erasing data. 



To create a relative file, select the 
unwritten menu option 3. This loads 
the program "4040 format," which 
creates the files needed by the mail-list 
package. Because the user could get 
here by hitting the wrong key at the 
menu, this module begins with its own 
menu, limited to either returning to 
the main menu or formatting a new 
data disk. If the user elects to continue, 
he is asked to provide a name for the 
data diskette, which is then completely 
formatted. The format command in 
Commodore BASIC 4.0 is HEADER, as 
seen in line 1240: 

1240 HEADER D(DD), (F$),IML ON 
U(UN) 

The BASIC 2 equivalent, also used by 
VIC and the CBM 64, is: 

1240 OPEN 15,UN,15 

1241 PRINT#15."N"-(-MID$(STR$ 
(DD),2)-fF$-(-",ML" 

1242 CLOSE 15 



Notice that the diskette ID number 
"ML" is not preset by the setup 
module. BASIC 4.0 does not allow the 
ID to be a variable. You may alter it, 
but only by changing line 1240. 

In BASIC 2 you could predefine the 
ID as IDS in the setup module. Then, 
instead of ending line 1241 with 
'-(-",ML" ', you would end it with 
' + ","+ IDS'. While you are at it, 
preset the program and data drive 
numbers as string variables to avoid 
constantly referring to them as 
'MID$(STR$(drive needed), 2)'. I also 
suggest opening the disk-error channel 
in the setup module and leaving it open 
throughout the package since it is used 
often. To do this, leave out lines 1240 
and 1242 above and change line 1241 
to 1240. 



Several chores within the mail list 
are handled in machine language. One 
of the most important of these is user 
input. Using the ordinary INPUT com- 
mand of BASIC, it is fairly simple for a 
user to foul up data by hitting the 
wrong keys. The mail list prevents this 
by monitoring the keys as they are hit 
and excluding those which could cause 
trouble. The first time the user en- 
counters this new input is in line 1180: 

1180 SYS IN,64, 16,1$ 

This line displays a row of 16 asterisks 
on the screen, with the leftmost one 
flashing rapidly. This area is the input 
field, and users are forced to remain 
within it until they hit [return] . The 64 
is a mask to indicate which characters 
are allowed in the input. The response 
is placed in the variable L$. Parameters 
for the input follow the SYS command. 
If SYS were left out, the line would 
cause a SYNTAX ERROR. Fortunately, 
the machine-language module reads 
the extra characters and ups the BASIC 
text pointer so BASIC never sees the il- 
legal syntax. In part 6 of this series, I 
will explain how this is done and sug- 
gest changes for those with BASIC 2. 

Meanwhile, those without BASIC 4 
may substitute an INPUT statement: 

1180 INPUT 1$ 

1181 IF LEN(1$) > 16THEN?"[UP]"; 
:GOTO 1180 

The CURSOR UP returns overlong in- 
puts to the original line to be redone. 

As soon as the diskette is formatted 
(about a 20-second process on a 4040 
drive) the relative file is created by line 
1260: 

1260 D0PEN#1,(F$),D(DD),L(RL) 
ON U(UN) 
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The L parameter tells DOS that this is a 
relative file. If the file already exists, it 
will be opened for iise. However, if the 
file on the diskette has a different value 
for L than line 1260, a DOS error will 
result. To prevent any possibility of 
this, line 1260 is the only place in the 
mail list where L is set. Everywhere 
else the value stored by the disk is used. 
This shortens the program slightly but, 
more important, it eliminates a poten- 
tial error. 

The value RL contains the desired 
recoid length for the file, preset by the 
setup module. Currently, it is set at 
150 characters, including all carriage- 
return characters. This is not enough 
to allow the user to fill every field in 
the record to its maximum length. 
However, this is rarely' a problem since 
only the part of each field actually used 
is added to the record length, along 
with a leading quotation mark and a 
trailing carriage return. Most addresses 
can be written easily in under 150 char- 
acters, leaving room on the diskette for 
more records. 

If the concept of files, records, and 
fields is new to you, think of a common 
3" X 5" card-file box. The entire box of 
cards is the file, each card within the 



box is one record, and each line on a 
single card is a field. It works the same 
way on the computer, except that the 
cards and box are no longer visible. 

For those with BASIC 2, the equiva- 
lent of line 1260 is: 

1260 OPEN 1,UN,2,MID$(STR$(DD),2) 
-f-":"-f-F$-f-",1"-f-CHR$(RL) 

The secondary address, 2, is of no great 
significance here. Just be sure you don't 
assign the same secondary address to 
disk files that could be opened simul- 
taneously. Note the use of CHR$ to 
send the record length. 

In order for the relative file to work 
reliably, it is necessary to create the 
needed records in advance. DOS is able 
to append new records to the end of a 
relative file later, but initializing all 
that are likely to be needed at once 
avoids some errors, including the possi- 
bility of filling the disk. It also ensures 
that the file will use at least two sectors 
on the diskette, a necessity for up- 
dating file data properly. 

Line 1280 defines the maximum 
record: 

1280RECORD#1,(NR) 



Or, in BASIC 2.0, 

1280 OPEN 15,UN,15 

1281 B2=INT(RL/256) 

1282 BL = RL-256*B2 

1283 PRINT#15,"P"-f-CHR$(2)-f-CHR$ 
(BL)-f-CHR$(BH)-f-CHR$(1) 

Note that the 2 in CHR$(2) must be the 
same as the secondary address set in 
line 1260. B2 and Bl are temporary 
variables that contain the high- and 
low-byte values of the number in RL. 
CHR$(1) tells DOS to point at the first 
byte within record #RL. If line 1280 in 
BASIC 4 were changed to 

1280RECORD#1,(NR),8 

then we would use CHR$(8) instead for 
BASIC 2. In that case, both B ASICs 
would begin to access data at byte 
number 8 within the record. This op- 
tion is rarely used. 

If record #NR already exists, line 
1280 takes only a moment. Here, how- 
ever, record #NR first has to be created. 
DOS indicates this by sending a disk 
status of 50. This is not usually an er- 
ror, but needs to be handled separately 
as most disk error-checking lines will 
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consider it an error. Line 1290 does it 
this way: 

1290 IF DS< > 50 THEN 1510 

If this is the first time record #NR is 
created, even a disk status of would 
be an error for these purposes. If you are 
using BASIC 2, it is easier to put the 
disk status check into a single sub- 
routine. Here is a simple example: 

60000 REM Check disk status 
60010 OPEN 15, UN, 15 
60020 INPUT#15,DS,DS$,ET,ES 
60030 CLOSE 1 5 
60040 RETURN 

If you choose to use this subroutine add 
it to each module in the mail list. Then 
call it at the start of each disk error- 
check line in the package. Line 1290 in 
this module becomes: 

1290GOSUB60000:IF DS< > 50 
THEN 1510 

Note that this subroutine cannot be 
used by those with BASIC 4, as the 
variables DS and DS$ are reserved for 
this purpose by BASIC itself. 

The next task is to write to the last 
record of the file. This forces BASIC to 
create all the records up to and in- 
cluding the last file. When records are 
newly created they are filled with 
CHR$(255), the Pi character. This 
character has a special advantage: when 
read from the disk it flashes the EOI 
line of the IEEE bus, signaling to BASIC 
that the entire record has now been 
sent from the disk. You can take advan- 
tage of this in line 1300 by writing the 
record with the same character: 

1300 PRINT#1,PI$:REM Leaves null 

Normally, writing a record takes only a 
moment. Here, however, DOS has to 
first create all the records up to and in- 
cluding number NR and fill them with 
dummy data. In the standard mail list 
this function takes about three minutes 
and creates 1000 records. After comple- 
tion, the file may be closed: 

1310 DCLOSEON U{UN) 



DCLOSE without a file number closes 
all disk files on the named unit [on unit 
8 if no unit is given) . In BASIC 2 the file 
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must be closed by number with: 

1310 CLOSE 1 

This concludes the relative-file por- 
tion of "4040 header." There are still 
two other files to be created. These are 
sequential-index files, which help the 
mail list find records in the relative file 
by name rather than number. In BASIC 
4 this is done with: 

1320 D0PEN#1,D{DD),"1NDEX",W 
ON U(UN) 

In BASIC 2 it becomes: 

1320 OPEN 1,UN,3,MID${STR$ 
{DD),2)-l- ":INDEX,S,W" 

with a similar change in line 1370. 
Remember also that in BASIC 2 you 
must end each PRINT# statement to 
the disk with CHR$(13| and a semi- 
colon; otherwise a linefeed will also be 
sent to the disk, causing havoc when 
the file is read. C$ is preset to 
CHR$(13), so line 1300 becomes; 

1300 PRINT#1,PI$C$;:REM Leaves null 

Finally, SYS PA in line 1540 cleans 
up the stack pointer, erasing all open 
FOR... NEXT loops and active sub- 
routines. Normally you would not 
want to do this . However, when chain- 
ing, the stack has less chance than 
usual to clean itself. Without SYS, 
repeated errors might cause a stack- 
related OUT OF MEMORY ERROR 
that would halt the program. If you are 
not using BASIC 4, choose the correct 
PA address below and substitute it in 
the setup module. 

Panic Address 
on Commodoie Machines 

BASIC 4 $B612 46610 
BASIC 2 $C597 50583 
BASIC 1 $C588 50568 
VIC $C67E 50814 

CBM 64 $A67E 42622 

In the next installment of this 
series, I will look at the largest module 
in the mail list, the update module, 
which is responsible for maintaining all 
the files and data. 



You may contact the author at 1280 
Richland Ave., Lincoln, XL 62656. 
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HOME COMPUTERS 

A 

ATARr 



400 



16K $199 

(Non Aian Ram) 



3SK. 
48K. 



(Non Atari Ram) 





OIBK ORIVKB FOR 
ATARI COMPUTERS 

51 Single Drive $549.00 

A1 Add-On Drive S339.00 

52 Dual Drive $879.00 

I Single Side Dual Head . . . $679.00 

Dual Drive Dual Head. . . $1046.00 




48K 



410 Recorder $7400 

610 Disk Drive $429.00 

I 822 Printer $269.00 

825 Printer $589.00 

830 Modem $159.00 

820 Printer $259.00 

850 Interface $169.00 

CX40 Joysticks (pair) $1 6.00 

CX653 Atari 1 6K Ram $77.95 



New low price effective January 1 . 1 963. 

Microtek 1 6K Ram $ 74.95 

Axlon Ramdisk(128K) $429.95 

Inlec 48K Board $159.00 

Intek 32K Board $ 74.00 

One Year Extended Warranty $70 00 

CX481 Entertainer Package $ 69.00 

CX482 Educator Package $ 1 30.00 

CX 483 Programmer Package $54.00 

CX 484 Communicator Package $344.00 



u-sci 




MICRO-SCI 

DISK DRIVES FQ 

FRANKLIN & APPL 

A2 $299 

A40 $369 

A70 $499 

C2 Controller $79 

C47 Controller $89 



SOFTWARE FOR ATARI 



Pac Man . 

Centipede 

Caverns of Mars . 
Asteroids . 



ATARI 

. $33 Missile Command. . . . $29 

$33 Star Raiders $35 

. $32 (3alaxian $33 

, $29 Defender $33 



ON-LINE 

Jawbreaker $27 Mission Asteroid $22 

Softporn $27 Mouskattack $31 

Wizard » Princess. . . . $29 Frogger $31 

The Next Step $34 Cross Fire (ROM) . . $36 

SYNAPSE 

File Manager 800. . . $69 Stiamus $26 

Cfiicken $26 Protector $26 

Dodge Racer $26 Nautilus $26 

Synassembler $30 Slime $26 

Page 6 $19 Disk Manager $24 

OATASOFT 

Pacific Highway $25 Graphic Generator... $13 

Canyon Climber $25 Micro Painter $25 

Tumble Bugs $25 Text Wizard $79 

Shooting Arcade $25 Spell Wizard $64 

Clowns i Balloons $25 Bishop's Square $25 

Graphic Master $30 Sands of Egypt $25 



Crush, Crumble 
Undead Crypt 
Curse of Ra 
Oatestones . 
Invasion Orion 
Arthur's Heir . . . 



EP'VX 

$24 Morloc's Tower 

$24 Rescue at RIgel. 

.i16 Ricochet . 

$16 Star Warrior . 

$19 Temple Apshai , 

$24 Upper Reaches 



APX 

518.50 Holy Grail 



$16 
$24 
$16 
$29 
$29 
$16 



$24 



Text Foriiatier. 

Family Budget . . $16.50 Player Piano $18.50 

Eastern Front $24 Keyboard Piano ..$ 1 6 50 

. Family Cash . . $16.50 Number Blast $i3 

Jukebox $13 Frogmaster $18.50 

Downhill , , .,$18.50 747 LandSimul.. ,. $18.50 

Outlaw $18 50 Word i^rocessor $40 



CBS 

K-razy Shoot Out . . . $32 K-razy Antics $32 

K-razy Kritters $32 K-star Patrol $32 



STICK STAND 

$g99 



4^ 



VISICORP 

For Apple, IBM & Franklin 

Vlsidex $1 69.00 

Visifile $189.00 

Visiplot $ 1 59.00 

Visiterm $69.00 

Visitrend/Plot $229.00 

VisiSchedule $229 00 

Desktop Plan $189.00 

VISICALC lor Apple II plus. Atari. CBM « IBM 1 79.00 
CONTINENTAL 

The Home Acountant(Apple/Franklin) $59.00 

The Home Accountant (IBM) $11 9.00 

1 St Class Mail (Apple/Franklin) $59.00 

siniuB 

Free Fail $24 Space Eggs $24 

Beer Run $24 Sneakers $24 

Snake Byte $24 Bandits $26 

BROOERBUNO 

Apple Panic $23 Arcade Machine $34 

David's Mag'C $27 Choplifter ' $27 

Star Blazer $25 Serpitine $27 

INFOCOM 

Deadline $35 Zork I $29 

Star Cross $29 Zork II or Ml $29 

MPC 

Bubdisk(l28KRam) $719.00 



FLOPPY DISKS 

MAXELL VBRBATUM 

MD I (Box of 10) $32 S'A- SS DD $2i 

MO II (Box of 10) $44 5y4" OS DD $31 

MFD 1(8") $40 ELEPHANT 

MFD II (6" DD) $50 5V4" SS DD $19.9' 



PRINTERS 

Smfch Corona 

TP 1 $599.00 

C.ITOH (TEC] 

Starwriter (F10-40CPS) $1399.00 

Printmaster (F10-55CPS) $1 749.00 

Prowriter 80 Col (P) $499.00 

Prowriter 80 Col (S) $629.00 

Prowriter 2 (132 Col) $799.00 

OKIOATA 

82A $429.00 

83A $659.00 

84P $1079.00 

84S $1199.00 

loa 

MicroPrism $649.00 

132 (fully configured) $1 599.00 

80 (fully configured) $1399.00 

Call for other configurations. 
DAI S'VWRITER 

Letter Quality $1 049.00 

DIABLO 

620 $ 1 1 79.00 

830 $ 1 849.00 



MONITORS 

AMOEK 

300G $ 1 69.0( 

Color I $339.0( 

Color II $699-0( 

Color III $429.0( 

BMC 

1 2" Green $65.0( 

13" Color 1400 $279.01 

13" Color 1401 (Mid Res) $369.0( 

ZENITH 

ZVM121 $99.01 

SHARP 

Sharp 13- Color TV $275.0 

PANASONIC 

TR-1 20 MIP (High Res. Green) $1 59.0 

CT-1 60 Dual fwtode Color $299.0 



MODEMS 

HAYES 

Smart $239.0 

Smart 1 200 (1 200 Baud) $549.0 

Chronograph $199.0 

Micromodem II (with Term) $309.0 

Mic-odem 100 $309.0 

NOVATION 

Cat $144.0 

D-Cat $159.0 

Auto Cat $219.0 

212 Auto Cat $569.0 

Apple Cat II $279.0 

212 Apple Cat II $609.0 

ANCHOR 

Mark I (RS-232) $79.0 

Mark II (Atari) $79.0 

Mark III (TI-99) $109.0 

Mark IV (CBM/PET) $1 25.C 

Mark V (OSBORNE) $95.C 

Mark VI (IBM-PC) $ 1 79.C 

Mark VII (Auto Answer Call) $1 19.C 

TRS-80 Color Computer $99.0 

9 Volt Povwr Supply $9 



v\/e8^ 



800- 648-33 1 1 

IN NV. CALL (70B) 888-8BB4 
P.O.BOX BBBS STATELINE, NV. 8S44S 



INTERNATIONAI. OROBRasAII Shipments outside continental United States must be pre-paid by certified cfiecK only! Include 3% (minimun $3.00) 
shipping arid haridling.BOUCATlONAL oiscouNTSiAdditional discounts are available from both Computer Mail Order locations to qualified 
Educational Institutions. 



FRANKLIN 




ACE 1000 
I ACE 10 with Controller Card 
ACE Writer Word Processor 

CALI 

FOR SYSTEM PRICE. 







PC 

NEC 

3BBO Princsr , 

SBoaa 

PERCOM DRIVES 

5y«" 1 60K Disk Drive $329 

S'A" 320K Disk Drive $449 

AMDEK 

31 OA Amber Monitor $1 79 

Amdisk(3yV) Drive $729 

DXY Plotter $759 

BOPTWARE 

I.U.S. Easywriter (I $249 

I.U.S. Easyspeller $1 29 

Peachtree Peach Pak (GUAP/AR) $419 

MPC Bubdisk call 




64K RAM 

780 KB Disk Storage 

Word Processing, Ultracalc CP/M 

C-Basic Software 

Smith Corona TP1 

Letter Quality Printer 

5S995.00 

Retail Value $4895.00 



RANA DISK DRIVES 

Call for price and availability on 
new Rana Disk Drives (of the Apple 
Franklin Connputer Systems 



the 
and 



WAn% HEWLETT 
mi'lIM PACKARD 

HP 41CV 
CALCULATOR 



commodore 

8032 $99900 

CBM64 CALL 

4032 $749.00 

8096 Upgrade Kit $369.00 

Super Pet $1 599.00 

203 1 $369.00 

8250 Double Sided Disk Drive $1699.00 

D906O 5 Megabyte Hard Disk $2399.00 

09060 7.5 Megabyte Hard Disk $2699.00 

8060 $1 29900 

4040 $969.00 

8300 (Letter Quality) $1 549.00 

8023 $599.00 

4022 $399.00 

New Z-Ram. Adds CP/M and 64K Ram. . . $549.00 

The Manager $209.00 

Magis CALL 

Word Pro 5 plus $319,00 

Word Pro 4 plus $299.00 

Word Pro 3 plus $199.00 

The Administrator $379.00 

InfoPro Plus $21 9.00 

Power $79.00 

VIC 20 Dust Cover $6.99 

COM 8032 Dust Cover $14.99 

C8M 8050/4040 Dust Cover $10.99 



*209 




HP41C $14900 

HP IOC $69.00 

HP lie $79.00 

HP 12C $114.00 

HP 15C $109.00 

NEW 160 $114.00 



HEWLETT PACKARD 

|g| iliiiW^ 

HP»85 
M969 

HP-125 SI 969.00 

HP-85 1 6K Memory Module 51 69.00 

5V«"Dual Master Disk Drive $ 1 799.00 

Hard Disk w/Floppy $4349.00 

Hard Disk $3549.00 

"Sweet Lips" Printer $1 199.00 

80 Column Printer $649.00 





PC-1500 

POCKET 
COMPUTER 



'209 



CE 1 50 Printer, Plotter and Cassette 

Interface Unit $1 72.00 

CE 1 52 Cassette Recorder $69.00 

CE 1 55 8K Ram Expansion Module . . . $94.00 



TEI.EVIDED 
TERMINAI.B 

910 $579.00 

912C $699.00 

920C 749.00 

926C $749.00 

950 $950.01 



800A $131900 

802 $2649.00 

802H $4695.00 

806 $5495 00 

816 $9495.00 





ivicao """" 

I § ^f ' , -"■ — : 

VIC 1630 Commodore Datasaette $69.00 

VIC 1S40 Disk Drive $339.00 

VIC 1541 (64 Disk Drivel CALL 

VIC 1625 Graphic Printer $339.00 

VIC 1210 3K Memory Expander $32.00 

VIC 1 1 10 8K Memory Expander $53.00 

VIC 1111 16K Expansion $94.00 

VIC 10 1 1 RS232C Terminal Interface $43.00 

VIC 1 1 1 2 VIC IEEE-488 Interface $86.00 

VIC 1211 VIC 20 Super Expander ..$53.00 

VIC Mother Board $99.00 



Timex Sinclair 1000 




16K Memory Module $44 95 

Vu^Calc $1795 T1ieOt»ara«r $14 95 

SuperM'Ui $1295 Ttie Budicur $13 95 

Check Book Manatcr. $13 95 Stuck Opdon $14 95 

Loan A Mortgage Amortizer .. $12.95 



NEC 

COMPUTERB 

8001 A $729.00 

803 1 $729.00 

8012 $549.00 

PRINTERB 

8023 $499.00 

7710/7730 $2399.00 

351 0/3530 $ 1 599.00 

MONITORB 

JB-1 260 $ 1 29.00 

JB-1201 $159.00 

JC-1201 $31900 

JC-1203 $72900 



800-233-8950 



477 E, 



IN PA. CALL. (7171 3B7-SB7B 
THIRD BT., WILLIAM8PORT, PA. 177Q1 



eas^ 



In-stock items shipped same day you call. No risk, no deposit on C.O.D orders. Pre-paid orders receive free shipping within the continental United States with no waiting period 
tor certified checks or money orders. Add 3%(minimum $3.00) shipping and handling on all CO and Credit Card orders. NV and PA residents add sales tax All items subject 
to availability and price change. NOTBi We stock manufacturer's and third. party software for most all computers on the market! Call today for our new catalogue 



irf 




,^ of the ^. 
Month 





The Adventure is Waiting for You ♦♦♦♦♦♦*♦ 



ADVENTURE OF THE MONTH 

Six month subscription: 

□ Cassette — $29 

D Disk — $49 

Individual adventures (please specify) 



n Cassette — $7 each 
□ Disk —$10 each 
■ Three adventures on one super disk ($26 each): 

n Arabian, Alien, and Treasure Island 
D Jack the Ripper, Crime, and Around the World 
n Black Hole, Windsloe Mansion, and Klondike 
n James Brand 
Please specify which computer: 

D Apple™ (req. 24K for tape, 32K for disk) 
n ATARI® (req. 32K for tape, 40K for disk) 
D TRS-80* (req. 16K for tape, 32K for disk) 

Name 

Address 

City/State Zip 

D MasterCard D VISA D Payment enclosed 

Name of Cardholder __^_^ 



MC# and Interbank«/VISA# 

Exp. Date Signature .^ 

Prices subject lo change withoul notice, AppleTM, ATARI* and TRS-80» are regiswred 
tradcmarlcs of The Apple Computer Company, Warner Communications and The Tandy 
Corporation respectively. 



How would you liice to go back in time to 19th century 
London to match wits with Jack the Ripper? Out into 
space to brave the swirling vortex of a black hole? Into 
the depths of the ocean, or on a quest to rescue a 
beautiful princess from the clutches of evil monsters? 

You never know where SoftSide Magazine's Adven- 
ture of the Montli might take you. But you can be sure 
that each month you will experience new delights and 
new challenges as you receive an original adventure on 
tape or disk, ready to load into your computer. 

The cost? A six-month membership is only $29 for the 
adventures on tape ($4.83 each) or $49 on disk ($8.16 
each). If you're not sure you can handle six full months 
of excitement, you can order a single adventure on tape 
for $7 or on disk for $10. You can choose from: 



Black Hole Adventure 
Windsloe Mansion Adventure 
Klondike Adventure 
James Brand Adventure 
Witches' Brew Adventure 
Arrow One Adventure 



Arabian Adventure 

Alien Adventure 

Treasure Island Adventure 

Jack the Ripper Adventure 

Crime Adventure 

James Brand Adventure 

Robin Hood Adventure 

The Mouse that Ate Chicago Adventure 
Around the Worid in 80 Day Adventure 

To order, use coupon provided or write to: 

Adventure of the Month 

6 South Street 

Milford, NH 03055 
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SIMULATIONS/APPLICATIONS 



Microcomputer Design 
of Transistor Amplifiers 



by Andy Cornwall 



The class A transistor amplifier 
is the most common circuit in 
analog electronics. This article 
presents a BASIC program that 
takes the mystery and tedium 
out of designing practical small 
signal amplifier stages. 



Amplifier Designer 

requires: 

BASIC 

(written for PET, but easiiy 

convertible) 

Computer hobbyists often have a wide 
interest in electronics. It is not unusual 
for a home microcomputer to be used 
for electronic circuit design. The pro- 
gram described here is for the design of 
a transistor, class A, small signal 
amplifier stage. Essentially, you tell 
the program what you want the ampli- 
fier to do, and component values and 
amplifier operating parameters [i.e., 
voltages, currents, and impedences) are 
calculated in return. At the least, the 
program removes the need for tedious 
calculations, and you need only a mini- 
mal knowledge of transistor amplifier 
theory. However, the program also pro- 
vides simulation capability to deter- 
mine quickly how changes in amplifier 
specifications alter component values 
and parameters. 

Class A 

The small signal, class A amplifier 
is the most common building block in 
analog electronics. It is basically a 
voltage amplifying device with a low 
voltage signal going in and a corre- 
sponding higher voltage signal coming 
out. If the gain from one amplifying 
stage is not enough, two or more can be 
chained together (or cascaded). The 
term "small signal" in this context 
means that the maximum output of the 



amplifer stage is usually less than ¥1 
watt. High-power class A amplifier 
stages can be designed using this pro- 
gram, but more efficient, though more 
complex, circuits are available for high- 
power situations. 

Geneialized Model 

Figure 1 is a schematic diagram of 
the amplifier. The circuit is intended to 
amplify AC inputs, such as audio. 



radio, or television signals. In addition 
to an NPN transistor, there are eight 
components: collector resistor (R^,), 
emitter resistor (R^), voltage adjusting 
resistor (R^,), two base bias resistors (Rj, 
and R^), and three capacitors (input, 
output, and bypass). The values of 
these eight components are calculated 
by the program. Also included in the 
schematic is load impedence (R)), the 
input impedence of the circuit or 



Listing 1 



■ M- 



SCi REN VERSION EXP MtlPlS 
90 REM** H PROGRhM FOR CLHSS 

100 REM** AMPLIFIER OESIOH. 

lie REM********************************* 

120 REM** BV HUDREW CORNWfiLL ** 

130 REM** 66 LHHDRflCE CRES. ♦* 

140 REM** DRRTMOUTH., HOVfl SCOTIR ** 

150 REM** CFlHFtDB ** 

1 60 REM********************************* 

1?0 K*="WITH LORD" 

180 FL«="*OflIN REDUCED BV " 

l'i»0 SL*=" FOR HIGHER GmIH " 

200 C*'-: 1 :) = "LOW TRANS. -'B' . " 

210 D*';i:) = "RHISE TRANS. ■'B-'. " 

220 C*';2> = "TRHNS. INTERN. RESIS. " 

230 D*':2:) = "L0WER OUT. IMPEDENCE" 

240 etc .-3.") = "LOW SUPPLV VOLTS." 

250 D* •; 3 .) = " Rm I SE SUP . VOLT . " 

260 NL*="*NON-OPERHTIHe CONDITION. TO CORRECT" 

270 H*i;i:) = " LOWER INPUT VOLTmGE/RHISE SUP. VOLT." 

2S0 Ntt:2:) = " LOWER VOLT.OUT/RHISE SUP. VOLT." 

290 MV=.5:REM HPPROX MIN VCE 

300 J=10 :REM BIAS RES. CURRENT FACTOR 

310 VP=.030 :REM EMIT. VOLT. FACTOR 

320 PRINT"3t!** CLASS M AMPLIFIER DESIGN ***" 

330 PRINT"JSEHTER AMPLIFIER SPECIFICATIONS :a" 

340 IHPUT"!^UPPLV VOLTAOE" .; VCC 

350 INPUT"aTRAHSISTOR 'E'";e 

360 INPUT"B:iUTPUT IMPEDENCE < '000 OHMS V ;RC :RC=RC*1000 

370 PRINT"a_OAD IMPEDENCE C'OeO OHMS;' - ENTER" 

330 IHPUT"ZERO IF UNKNOWN" ;RL :RL=RL*1000 

390 IF RL=0 THEN RL=ieT3 :K*="WI THOUT LOAD" 

400 RK= RC*RL/';RC+RL.'> iREM CALC. OUT. imp. WITH LOAD. 

410 INPUT"S.OWEST SIGNAL FREQ CHERTZV.jF 

420 INPUT"31AX. INPUT VOLTAGE SWING"; VI 

430 INPUT"BriAX. OR SELECT GAIN (:M/S:>";G* 

440 IF C*="M" THEN VO=B*VI : GOTO 480 

450 IF G*';>"S"THEN 430 

460 PR I NT "SI AX. OUTPUT VOLTAGE SWING < WITH" 

470 INPUT "LOAD IF GIVEN ABOVE!) " .;V0 

4S0 G=VO/VI jREM DESIRED GAIN 

490 REM CHECK GAIN FOR ' B' .. REDUCE GHIH AND VO IF 'B' TOO LOW. 

500 IF G>B THEN G=B .■VO=B*VI :FLmG=1 

510 REM PRELIMINARY SUPPLV VOLTAGE CONDITION CHECK. 

520 IF VOVCC-VI-MV THEN VO=VCC-VI-MV :G=VO/VI !FLAG=3 

530 GD=G :REM LIMIT SET ON GAIN BV AMP. SPECS OR TRANSISTOR 'B'. 

(continued) 
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device the amplifier stage will be 
feeding. Load impedence is a specifica- 
tion requested by the program. 

Choice of Transistor 

The transistor you choose must be 
NPN silicon (the most common type) 
and suitable for amplifying. The only 
transistor specification used in the pro- 
gram is static (or DC) current gain, 
referred to as either /3 (called beta) or 
hfe. However, if your amplifier will be 
handling high-frequency signals (over 1 
MHz) connected to high supply voltage 
[over 25 V, or so], or dissipating high 
power (over about 100 mW, as calcu- 
lated by the program), you should be 
sure the transistor you intend to use 
can handle these extremes. In general, 
the "five for a dollar," NPN, small 
signal, amplifiying transistors should 
be suitable for most applications. 

Using the Program 

To use the program you will have to 
input the amplifier specifications 
described below. 

Supply Voltage (V^J 

Choice of supply voltage depends 
on the battery or other power source 
you want to use. Minimum practical 
supply voltage is about three volts. 

Tzansistoz p 

Beta determines the maximum po- 
tential gain of the amplifer stage and in- 
fluences the biasing characteristics. 
Unfortunately, transistor beta can be 
an enigma; even transistors with the 
same component number have different 
betas. Some transistor specifications 
mention minimum beta, others refer to 
'typical' beta, and grab- bag transistors 
frequently come with no indication. 
When in doubt, you are probably safe to 
assume a value of 50 to 100. 

Output Impedence 

When you specify output impe- 
dence you are actually determining the 
value of R^. Usually, output impedence 
is set equal to or less than load im- 
pedence. If in doubt, you might try set- 
ting the output impedence at 100 to 
500 times the supply voltage. 

Load Impedence 

All else being equal, the effect of 
load impedence is to reduce voltage 
gain. If load impedence is entered into 
the program, the program compensates 



Listing 1 (continued) 

54Ci FiL=e,''';e+l ;> :REM EETfi FACTOR USED FOR CHLC. RE. 

.550 REM TftBLE HEfiDIND FOR RUN nON I TOR; TABLE VALUES PRINTED 

DURING CALCULATION. 
560 PRINT"3v'0 MV VE VV" 

570 DEF FHM<:x:)=iNT';x*ie0>,''i0e 

580 IE=e!RE=GI 

590 REM CHECK FOR NON-OPERATIONRL OUTPUT VOLTAGE COHDITIOH 

see IF vu<-.:vi then nflag=i : goto 1070 

610 REM PRINT MONITOR VALUES. 

620 PR I NT FHtl ■; VO > ., FHM •'. MV > ., FNM C VE ) , FNM •; VV :■< 

630 REM CALCULATE CURRENTS. 

640 1 0= . 5* •; V0+2*MV > /RK 

650 IB=IQ/B 

660 IE=IQ+IB 

670 REM CALC. TRANS. INTERNAL RESISTANCE RP AND RESISTOR RE. 

6Se RP=VP/IE 

690 RE = AL*RK.,-'G - RP 

700 REM CHECK FOR TRANS. INTERNAL RESIS.COND. 

710 REM IF RE IS NEG. ..LOWER GRIN AND VO;REFIGURE . 

720 IF REO.l THEN C=AL*RK/RP :FLAG=2 : VO=G*VI :GOTO 588 

730 IF RE<:0 THEN RE=0 

740 REM CALC. VOLTAGES VTEQ..VK,AHD VE. 

750 VTEQ=IQ*RK+IE*RE 

760 VK=VCC-IQ*RC 

770 VE=VK-VTEQ-VP 

780 REM CHECK TO SEE THAT VE ALLOWS INPUT VOLTAGE SWING. 

790 REM IF NOT LOWER GAIN AND VO ■;: INCREASING VE:> ,REFIGURE. 

800 IF VE>=VI/2 THEN S2C-I 

810 IF VE<VI/2 THEN VO=VO*. 95 !G=VO/VI !FLAG=3 :GOTO 53" 

320 REM CALC. VOLTAGE VV. 

830 VV=VE-IE*RE 

840 REM CHECK FOR SUFFICIENT SUPPLV VOLTAGE. 

350 REM IF VV IS NEO. ., LOWER GAIN AND VO (INCREASING VV!) :REFIGURE. 

860 IF VV<-.e001 THEN VO=V0+VV :G=VO.-'V I :FLflG=3 :GOTO580 

370 IF VV<0 THEN VV=0 

8S0 REM IF GAIN REDUCED BV INTERNAL RES I STANCE., ATTEMPT TO RAISE 

GAIN BV 

890 REM INCREASING MV C INCREASING 10.) jREFIGURE . 

900 IF FLRG=2 AND G>GT THEN MV=MV+VV,-'4 :GT=G :G=GD : VO=G*VI :FLfiG='e 

!GOTO5S0 

910 REM CALC. RESISTOR RV. 

920 RV=VV/IE 

930 REM CALCULATE BIAS VOLTAGE RESISTORS. 

940 VB=VE+.7 

950 re='::vcc-vb>/(;';j+i:)*ib::' 

960 RX= VB/ ■; .J* I E > 

970 REM CALCULATE INPUT IMPEDENCE 

980 z I N= 1 / ■:: 1 .■■■■r;<+ 1 /rb+al/ <: b* •; re+rp ;■ :' :> 

990 REM CALCULATE CAPACITOR VALUES 

1000 DEF FNMO<::>=i/(:2*fT-*F*x:> 
1010 ci=fnm';zih:> 

1020 IF RVCl THEN CB=0:GOTO 1860 
1 030 RR=RE+RP+ •: RB*RX :> / f B* C RB-hRX ;:■ .") 
1040 RR=RH*RV,-' < RA+RV ) 

1050 cs=fnm<rr;) 

1060 if k*="with load" then c.l=fhm';rl.:' 

1070 rem display component values 



10S0 DEF FHOCX 

1090 DEF FHR';X 

1100 DEF FHC<X 

1110 DEF FNICX 

1120 DEF FHWCK 



= I NT ■; X.* 1 00 ':• / 1 00000 
.") = I NT ■; xx 1 :> / 1 00 
iNT';i0T8*x::'/ioei 



= I NT < X* 1 0t6 :> .-■ 1 000 

= I NT ■; 1 000*x-; j / 1 000 

1130 PRINT" r»ftftHiaC:OMPOh-IFNT VALUESffi" 

1140 PRINT"RESIST0RS ';'000 OHMS>: 

1150 PRINT"RC re RV RB r: 

1 1 60 PR I NT FNR ■; RC !> ; TAB < 6 > FHO ■■; RE > ; TAB •; 1 4 :> FNO '.: R'. 

1170 PRINT THB<32:)FNRf:RX:) ;"a" 

1130 PRINT"CAPACITORS ^MICROFARADS;) : •' 

1190 PRINT" INPUT OUTPUT BVPASS" 

1200 PR I NT TAB '.; 2 > FNC < C I :> .: TAB < 1 2 > FHC •; CL > ; TAB '■.:23 :> FHC: <; CB 

1210 REM FLAG NON-OPERflTIONFiL CONDITION 

1220 IF RV<:0 THEN NFLHG=2 

1230 IF NFLfiG>0 THEN PRINT"a"NL* :PRINT N*<:HFLAG:) 

1240 PRINT TAB';7>"iaB^RESS SPACE TO CONTINUE" 

1250 GETH*:IFA*0" "THEN 1250 

1260 REM DISPLAY PARAMETERS 



thB'::24:)fnR';rb;) ; 



(Continued) 
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Listing 1 (continued) 



<WITH LCiflD:>' 



127'0 PRIHT"3aOPERflTIHC-i PflRPltlETERS" 

1280 PRINT"fflIMPEDEHCES < '000 OHMS:): 

1230 PRINT" INPUT OUTPUT OUTPUT 

1 aeCi PR I NT FNR C 2 1 H > .: THB '■ 7 > FNR <P.C > .; 

1310 IF K* = "WITH LOHD" THEN PRINT THB'; 16>FNR'.:RK:) 

1320 PRINT 

1 330 PR I NT " aau I ESCENT CURRENT C M I LL I AMPS > : " 

1340 PR I NT "COLL ECTOR BIHS" 

1350 PRINT FHI';iQ:).;TfiBi;i3.">FNI'-.:iB:) 

1360 PR I NT "SSU I ESCENT VOLTAGES:" 

1370 PRINT"SUPPLV COLLECTOR EMITTER BASE" 

1 330 PR I HT FNV < VCC > ! TftB •; S > FNV C VK > .! TfiB ■;" 28 > FHV < VE > ; TAB C 30 > FNV C VE ) .j ' 

1390 PR I NT " S I GHFIL VOLTAGES <f1HX. SWINCv):" 

1400 PRINT" INPUT OUTPUT" 

1410 PRINT VI.:THB(:7:)FNV<:VI*G:).!" ",;K*;"M" 

1420 PRINT TftB';7:)"aigpRESS SPhCE to CONTINUE" 

1430 GETfl*!lFH*<>" "THEN 1430 

1440 REM DISFLflV PBRHtlETERS 

1450 PRINT"aSlSCiflIH: " .!FHVf;G:i ; " ".!K*.;"ffl" 

1460 PRINT"riIN. DESIGN FREQ. '^HERTZ:) ";F 

1470 PRIHT"M1FlX. TRHHS. PWR. DIS. CMW'S:) " fFNI •; VTEQ*IG:) 

1480 IF NFLflG>0 THEN 1500 

1490 IF FLRG5-6 THEN, PRINT ;PRINT FL*;C*';FLFiG> :PRINT SL* ;D*<FLHO:) 

1500 INPUT"H^NTER 1 TO SEE COM. VHLUES; 6 TO END"; P 

1510 IF P=l THEN 1070 

1520 IF P<;> THEN 1500 

1530 END 



for potential loss of gain when calcu- 
lating resistor values. Enter zero if you 
do not know load impedence; the de- 
fault load resistance is lOK megohms, 
which is virtually no load at all. 



Lowest Signal Pzequency 

This frequency helps determine 
capacitor values. The lowest hi-fidelity 
audio frequency is about 20 Hz, and 
lowest AM radio audio is about 100 to 



200 Hz. Non-audio signals are con- 
siderably higher; for example, the low 
end of the AM broadcast band is 
540,000 Hz. 

Input Voltage Swing 

Input voltage swing is the peak-to- 
peak value of input voltage. If, for in- 
stance, an input signal varies from 
+ 0.1 V to -0.1 V, the peak-to-peak 
voltage swing is 0.2 V. 

Maximum or Select Gain 

Choosing maximum gain automati- 
cally sets gain at its maximum value, 
given supply voltage, output impedence, 
and transistor characteristics (mainly 
beta, but also V described below). 

Output Voltage Swing 

If you choose "select gain" you will 
have to specify the peak-to-peak out- 
put. You'll get increased input im- 
pedence by reducing gain below max- 
imum, but you may want to set output 
voltage somewhat higher than required 
to provide some design head room. In 
any case, output voltage swing must be 
somewhat less than the supply voltage. 
Also, output voltage swing cannot 
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imply a gain higher than transistor 
beta. (The gain of the amplifier is de- 
fined as output voltage divided by input 
voltage.) 

The Program Takes Over 

Despite your efforts to enter logical 
amplifier criteria, there may be incon- 
sistencies that will lower your output 
voltage swing (or gain) specification. 
You can observe the iterative calcula- 
tion process with the "run monitor" 
feature. If output voltage has been 
reduced, there will be a suggestion on 
how to recover gain at the end of the 
program output. When you indicate 
maximum gain, there will be a similar 
message on how to increase gain. There 
are inconsistencies that the program 
does not fix, however. These will make 
R^ negative, or drop gain below one. 
When either of these conditions occurs, 
you will receive a "non-operating con- 
dition" message along with a sugges- 
tion on how to overcome the problem. 

Final Pointers 

Now that you are ready to start de- 
signing amplifiers, here are a few tips. 



Figure 1 



vcc 



RB 



INPUT ) II 

INPUT 



CAPACITOR \ 
RX S 







RC OUTPUT 
/CAPACITOR 



-> OUTPUT 



RL 



BYPASS 
CAPACITOR 



• Try to have quiescent collector cur- 
rent of at least 1 mA. With some 
transistors, considerably higher col- 
lector current is desirable. To in- 
crease collector current, lower output 
impedence. 

• If the design value of R^ happens to be 
near zero, this resistor and the bypass 



capacitor are not needed. Similarly, R^ 
is not needed if its value is near zero . 

• When cascading amplifier stages, the 
output capacitor of one is the input 
capacitor of the other. Only one 
capacitor is needed to link the stages. 

• You will find that standard values of 
commercially available resistors and 
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Sample Run 



««« CLftSS ft AMPLIFIER DESIGN »»» 
ENTER AMPLIFIER SPECIFICATIONS: 

SUPPLY VOLTAGE? 14 

TRANSISTOR 'B'7 250 

OUTPUT IMPEDENCE ('000 OHMS)? 2 

LOAD IMPEDENCE ('000 OHMS) - ENTER 
ZERO IF UNKNOWN? 30 

LQl>(EST SIGNAL FREQ (HERTZ)? 20 

MAX. INPUT VOLTAGE SWING? .5 

MAX. OR SELECT GAIN (M/S)7 S 

MAX. OUTPUT VOLTAGE SWING ( WITH 
LOAD IF GIVEN AB0VE)?'10 



COMPONENT VALUES 

RESISTORS ('000 OHMS): 
RC RE RV RB RX 
2 .08318 .71758 84.77 26.06 



CAPACITORS (MICROFARADS): 

INPUT OUTPUT BYPASS 
.73 .26 57.05 



PRESS SPACE TO CONTINUE 



OPERATING PARAMETERS 

IMPEDENCES ( ' 000 OHMS): 
INPUT OUTPUT OUTPUT (WITH LOAD) 
10.77 2 1.87 



QUIESCENT CURRENT (MILLIAMPS): 
COLLECTOR BIAS 
2 . 933 .011 



QUIESCENT VOLTAGES; 

SUPPLY COLLECTOR EMITTER BASE 
14 8.133 2.358 3.058 



SIGNAL VOLTAGES (MAX. SWING): 
INPUT OUTPUT 
.5 10 WITH LOAD 



PRESS SPACE TO CONTINUE 



GAIN: 20 WITH LOAD 

MIN. DESIGN FREQ. (HERTZ) 20 

MAX. TRANS. PWR. DIS. (MW'S) 16.B52 

ENTER ITO SEE COM. VALUESj TO END? \ 



capacitors seldom match component 
design values. For resistors, use the 
closest available commercial value. 
In theory, the capacitors used should 
be equal to or larger than design 
values, but somewhat lower value 
capacitors should be acceptable for 
most purposes. 
• It is likely that an actual amplifier 
stage will not have measured voltages, 
currents, and gain exactly as calcu- 
lated by the program. Such deviation 
is to be expected considering com- 
ponents used will not exactly match 
design values. Also, actual transistor 
beta probably differs from that used 
in the program. However, unless 
there are large differences (greater 
than 20%, or so) between measured 
and design parameters, the amplifer 
should do the job you want. 

Example 

An example amplifier stage design is 
shown in the sample run. The objective 
of the design is to interface an AM/FM 
tuner module with a power amplifier. For 
full output the power amplifier requires 
asignal of 10 V peak-to-peak, but the 
tuner only provides output of Vi V. In- 
put impedence of the power amplifier 
[which is the load impedence for the 
amplifier stage) is about 30,000 ohms. 
The power amplifier's own power sup- 
ply can be tapped to obtain a V^^ of 14 V. 

Try Experimenting 

At the start of the program, 
variables MV, J, and VP are defined. 
The values in the program listing 
should be reliable in most situations, 
but you might want to experiment by 
changing the program values of these 
variables. The purpose of each value is 
mentioned in a REM statement. The 
value of MV should be no lower than 
the minimum (or saturation) collector- 
to-emitter voltage of your transistor. 
One-half volt will be sufficient for 
most transistors. } controls the sum of 
resistors R^ and R^. A lower value of J 
increases R), and R^. This raises input 
impedence but makes proper transistor 
biasing more sensitive to the value of 
beta. If you are fairly certain about the 
beta of your transistor, you can lower }. 
Conversely, increasing J makes know- 
ing beta less important. If you plan to 
run your transistor near its maximum 
output rating, beta will drop as the 
transistor gets hotter. In situations of 
variable or uncertain beta, use a higher 
value for } to increase bias stability. 



Variable VP relates to emitter diode 
voltage drop of a transistor. Small 
signal transistors have an emitter 
voltage drop of .025 V, while power 
transistors may have a drop in the range 
of 0.5 V. 

References 

The following books are helpful if 
you want to learn about transistor 
amplifier theory. 

1. Malvino, Albert Paul, Electionics 
Principles, McGraw-Hill, 1973. 

2. Oleksey, Jerome E., Piactical SoM- 
State Ciicuit Design, Howard W. 
Sams & Co., Inc., 1976. 

3. Turino, Jon L, Solid-State Ciicuits 
for Hobbyists and Experimenteis, 
Howard W. Sams & Co., Inc. 1975. 



An(iy Cornwall is an electronics hobbyist. 
After acquiring a Commo(iore PET he 
(ielveti into computer (iesign of electronic 
circuitry. You may contact him at 66 
Lan(irace Cres., Dartmouth, Nova Scotia 
B2W 2P9. 
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AMCftO 

Apple Slices 



By Tim Osborn 



Last month's Apple Slices presented a 
fast method to find an element in an 
ascending ordered array using a binary 
search technique. This month's pro- 
gram, ALTERNATE INDEX, expands 
the capabilities of BINARY-SEARCH 
by creating ascending ordered arrays 
containing any substring of the base 
data array. This process allows you to 
declare any substring of the base array 
as a key, sort an array of these keys in 
ascending order, and search with 
BINARY-SEARCH on that key. You can 
then look back in the base array to find 
the full string value. 

One possible application of this 
system would be to let a user quickly 
find information on a part, either by 
part number or part name. The base ar- 
ray would contain a list of parts and 
related information, including part 
number and part name. The array 
would be processed by ALTERNATE- 
INDEX twice — once for the part num- 
ber key and once for the part name key. 
Once the key arrays are generated, the 
user would supply a part name or num- 
ber. The system would look in the 
proper key array for a match, using 
BINARY-SEARCH. Once the item is 
found in the key array, the system can 
locate the element in the base array to 
display all the related data. 

How ALTERNATE-INDEX Works 

Because of the way Applesoft string 
arrays are stored in memory, it is possi- 
ble to have two or more arrays that con- 
tain the same data without duplicating 
this data. Applesoft string arrays are ac- 
tually a table of pointers to the related 
data, which is stored elsewhere in 
memory. Therefore, it is possible to 
build arrays with pointers to the same 
data contained in another array. With 
every pointer there is also a length 
field, which is the length of the string 
for that array element. By manipu- 
lating the length field and pointer, 
ALTERNATE-INDEX builds pointers to 
substrings of the base array, then sorts 



this key array in ascending order. The 
syntax is: 

&S(XX$,YY$,B,E,ZZ%) 
where 

1 . XX$ is the base array (any legal string 
array name). 

2. YY$ is the key array (any legal string 
array name). 

3. B is an Applesoft arithmetic expres- 
sion that represents the beginning 
position of the key in the base array. 
This is relative to the beginning of 
the base string so that is the first 
byte and (LEN(XX$(n) - 1 ) is the last 
byte of the base array element n. If B 
is greater than (LEN(XX$(n] - 1 ), 
then a null key element will result. 

4. E is the ending position of the key. It 
can be replaced with any legal Apple- 
soft arithmetic expression. If B is 
greater than E then a syntax error 
will result. If E is greater than 
(LEN(XX$(n) - 1 ) for any element n 
in the base array, then the value of 
[LEN(XX$(n) - 1 ) will be substituted 
forE. 

5. The value contained in ZZ%(n) will 
be the element number in XX$ 
where the key in YY$(nJ can be 
found as a substring. Any legal in- 
teger array name can be substituted 
forZZ%. 

6. The number of elements contained 
in each array must be the same or a 
syntax error will result. 

7. All arrays must be one-dimensional 
or a syntax error will result. 

ALTERNATE-INDEX is pro- 
grammed so that you can use the & 
GET command of BINARY-SEARCH 
directly. If BINARY-SEARCH is not in 
memory upon encountering the & GET 
command, a syntax error message will 
be produced. To use & GET with 
ALTERNATE-INDEX you must 
BLOAD BINARY-SEARCH instead of 
BRUNing it. 

If you will be using arrays that may 
contain duplicate keys, or wish to find 
the first key higher or lower than the 
search key, you can write your own 
serial search routine instead of using 
BINARY-SEARCH. The advantage of 



using ALTERNATE-INDEX in these 
cases is that you only go through the 
overhead of pulling out the key sub- 
string once instead of each time you 
search for a value. 

To access an element in the base ar- 
ray, search the key array (either with 
BINARY-SEARCH or your own rou- 
tine) for a desired value. Once the key 
element is found you then take the 
value found in the integer array ele- 
ment (ZZ%) that has the same element 
number as this key element. This is the 
number of the element in the base array 
that contains the desired data. For 
example, say we used the following 
statement to build the alternate index: 

& S(QQ$,RR$,2,5,RR%) 

and there is an element QQ$(n) that 
contains the following string: 

"504134WIREHOUSINGS" 

There would be an element RR$(i) that 
points at the substring "4134" and an 
element RR%(i] that contains the 
integer value n. We then use this in- 
teger to access the proper element in 
the base array. 

Once the alternate index is built, 
elements in the base array can be found 
very quickly when BINARY- SEARCH 
is used to locate the keys in the key ar- 
ray. An even bigger plus to this system 
is that it allows you to access quickly 
the same data with more than one key 
substring without duplicating the data. 

Subroutine Hints 

ALTERNATE-INDEX can be used to 
sort the base array by specifying the 
base array as the key array and specify- 
ing a B value of and an E value of 255. 
ALTERNATE-INDEX is set up to load 
at $90AF, so HIMEM should be set at 
37038 or lower. ALTERNATE-INDEX , 
is designed to run on a 48K Apple U 
with MAXFILES set at three or less. 

Because of space limitations I did 
not go into detail on how the sub- 
routine works. If you have any ques- 
tions please contact me at 62 Clement 
St., Manchester, NH 03102. 
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90AF 
90B1 
90Bi 
90B6 
90B9 
90BB 
90BE 
90BF 
90C1 
90C3 
90C5 
90C7 
90C9 
90CB 
90CE 
9OD0 
90D3 
90D5 
90D6 
90D9 
90DB 
90DE 
9OE0 
90E3 
90E5 
90E8 
90EA 
90ED 
90EF 
90F2 
90F4 
90F7 
90 F9 
90FC 
90FF 
9102 
9105 
9108 
910A 
910D 
910F 
9112 
9115 
9118 
911B 
911D 
9120 
9122 
9L25 
9128 
912B 
912E 
9131 
9134 
9137 
913A 
913D 
9140 



A9 4C 
8D F5 ^3 
A9 BE 
8D F6 H3 
A9 9^ 
8D F7 ij 
6H 

C9 53 
F0 IB 
C9 BE 
D0 i9 
A9 2i 

A2 ei 

DD li 94 
F^ i3 
4C C9 DE 
A9 Bl 
E8 

DD li 94 
D8S F5 
4c 1^ 94 
A5 5Ci 
8D 64 93 
A5 51 
8D 65 93 
A5 52 
8D 66 93 
A5 53 
80 67 93 
A5 54 
8D 68 93 
A5 55 
80 69 93 

2^ Bl en 

2i BB DE 
2i 09 F7 
Zi 6a 93 
A5 9B 
8D 54 93 
A5 90 
80 55 93 
2i BE DE 
Zi 09 F7 
Zi 6A 93 
A5 9B 
8D 56 93 
A5 9C 
80 57 93 
2i BE DE 

zt in DO 

Zi FB E6 
8E 5B 93 
Zi BE DE 
2i 67 DD 
Zi FB E6 
8E 50 93 
EC 5B 93 
9^ 8E 



* APPLE SLICES BY TIM OSBORN * 

♦ ALTERNATE INDEX * 
♦♦♦*«♦♦♦♦♦******♦*♦**♦♦*****♦♦*♦** 



< EQUATES 
ARfiYlPTR EPZ $5/ 
a PAIRLAD EPZ ARRYIPTR 
9 AfiRY2PTR EPZ $52 

10 ARRY3PTR EPZ $54 

11 LOWTR EPZ $9B 

12 PAIR2AD EPZ LOWTR 



13 CHRGET 

14 ; 

15 AMPERV 

16 CHKOPN 



EPZ $B1 



EQU I3F5 
EQU $OEBB 



17 GETAfiYPT EQU $F7II9 

18 CHKCOH EQU $DEBE 



19 SYNERR 

20 DATA 

21 FRMNUM 

22 CONINT 

23 GET 

24 ; 
25 
26 

27 SETVEC 

28 

29 

30 

31 

32 

33 

34 ENTRY 

35 

36 

37 

38 

39 

40 

41 



EQU $DEC9 
EQU $0995 
EQU $0067 
EQU $E6FB 
EQU $941^ 

ORG $9e(AF 
OBJ $8M 
LDA #$40 
STA AMPERV 
LDA iCENTRY 
STA AMPERV+1 
LDA /ENTRY 
STA AiMPERV+2 
RTS 

CMP #$53 
BEQ SHTENTRY 
OMP #$BE 
BNE ENTRYERR 
LDA #$20 

LDx §m 

CMP GET,X 
BEQ ENTRYl 



42 ENTRYERR JMP SYNERR 

43 ENTRYl LDA #$B1 



44 
45 
46 
47 



INX 

CMP GET,X 
BNE ENTRYERR 
JMP GET 



48 SRTENTRY LDA AHRYIPTR 



49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 



STA ZEROSV 
LDA AHHYlPTR+1 
STA ZEROSV+1 
LDA ARRY2PTR 
STA ZEROSV+2 
LDA ARRY2PTR+1 
STA ZEHOSV+3 
LDA ARRY3PTR 
STA ZEROSV+4 
LDA ARRY3PTR+1 
STA ZEROSV+5 
JSR CHRGET 
JSR CHKOPN 
JSR GETAfiYPT 
JSR CHKONE 
LDA LOWTR 
STA SAVARRYl 
LDA LOWTR+1 
STA SAVAHRYl+1 
JSR CHKCOH 
JSR GETARYPT 
JSR CHKONE 
LDA LOWTR 
STA SAVARRY2 
LDA LOWTR+1 
STA SAVARfiY2+l 
JSR CHKCOM 
JSR FRMNUM 
JSR CONINT 
STX STARTPOS 
JSR OHKCOM 
JSR FRMNUM 
JSR CONINT 
STX ENDPOS 
CPX STARTPOS 
BOC ENTRYERR 



WORK POINTER FOR SRC. ARRAY 
REUSE AHRYIPTR 

WORK POINTER FOR DEST. ARRAY 
WORK POINTER FOR INT. ARRAY 
APPLESOFT WORK PTR 
REUSE LOWTR FOR INTERNAL PURP 
A-SOFT'S ROUTINE TO GET A BYTE 

AMPERSAND VECTOR LOCATED HERE 
CHECK FOR OPEN QUOTE 
ROUTINE TO FIND ARRAY DESC 
CHECK FOR COMMA 
DISPLAY SYNTAX ERROR 
ADV TXTPTR TO END OF STMT 
EVAL AfilTH EXP., PUTS IN FAC 
OONVTS FAC TO INT, PUTS IN X 
ENTRY TO BIN SEARCH ROUTINE 



IFOR LISA 
;JUMP ABSOLUTE 

jLSB OF ENTRY ADDRESS 

;MSB OF ENTRY ADDRESS 



CHECK FOR SORT 



CHECK FOR GET COMMAND 



IF GET, ^^AKE SURE 



BINARY SEARCH IS IN MEMORY 



SYNTAX ERROR 
CHRGET ROUTINE 



jSAVE ZEROPAGE LOCATIONS 



GET NEXT CHARACTER 
SHOULD BE " ( " 
GET SOURCE ARRAY DESC. 
SHOULD BE A 1-DIM ARRAY 
SAVE ARRAY DESC. ADDRESS 



CHK FOR COMMA+LOAD NXT BYTE 
GET DEST. ARRAY DESC 
SHOULD BE A 1-DIM ARRAY 
SAVE ARRAY DESC. ADDRESS 



EVAL STARTING POS EXPRESS 
CONVERT TO INTEGER, PUT IN X 
AND SAVE 

EVAL END POSITION EXPRESS 

CONVERT TO INTEGER 

AND SAVE 

MAKE SURE ENDPOS > =STAfiT POS 

NO GOOD 



Alternate Index (continued) 



9142 Zi 
9145 20 
9148 Zt 
914B A5 
914D 8D 
9150 A5 
9152 8D 
9155 20 
9158 Zi 
915B 20 
915E A0 
9160 Bl 
9162 8D 
9165 Dl 
9167 F0 

9169 40 
9160 Dl 
916E fi 

9170 4C 

9173 08 

9174 Bl 
9176 8D 

9179 Dl 
917B Yi 
917D 40 

9180 Dl 
9182 ?i 
9184 40 
9187 A9 

9189 Zi 
9180 A9 
918E 20 
9191 A9 
9193 Zi 
9196 20 
9199 AD 

9190 0D 
919F D0 
91A1 40 
9U4 A0 
91A6 Bl 
91A8 8D 
91AB C9 
91AD D0 
91AF A9 
91B1 80 
91B4 80 
91B7 8D 
91BA 40 
91BD 08 
91BE Bl 
9100 8D 
91C3 08 
9104 Bl 
9106 80 
9109 AD 
91CC CD 
91CF 90 
91D1 18 
91D2 AD 
91D5 60 
91D8 8D 
91DB AD 
91DE 69 
91E0 8D 
91E3 AD 
91E6 CD 
91E9 B0 
91EB 38 
91EC AD 
91EF ED 
91F2 80 
91F5 EE 
91F8 40 
91FB AD 
91FE ED 
9201 8D 
9204 AD 
9207 A0 
9209 91 
920B C8 



BE DE 
D9 F7 
6A 93 
9B 

58 93 
90 

59 93 
76 93 
81 93 
^0 93 
05 

58( 

63 93 
52 
03 

00 90 
54 
«f3 
00 90 

50 

62 93 
52 
03 

00 90 
54 
03 

Da 90 
07 
97 93 

ii 

A3 93 

07 

AF 93 
CD 93 

62 93 

63 93 
03 

27 92 
00 

50 

5A 93 
00 
0E 
00 

5F 93 
50 93 
5E 93 
04 92 

50 

60 93 

50 

61 93 
5A 93 
5B 93 

DE 

60 93 
5B 93 
50 93 

61 93 
00 

5E 93 
5C 93 
5A 93 
10 

5C 93 
5B 93 
5F 93 
5F 93 
04 92 
5A 93 
5B 93 
5F 93 
5F 93 
00 
52 



85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 

101 SIZEEQl 
102 
103 

104 SIZEEQ2 
105 
106. 
107 
108 
109 

110 SIZEEQ3 
111 
112 

113 SIZEEQ4 
114 
115 
116 
117 
118 
119 
120 TRANSFER LDA SIZE 



JSR OHKOOM 

JSR GETARYPT 

JSR CHKONE 

LDA LOWTR 

STA SAVAREY3 

LDA LOWTR+1 

STA SAVARRY3+1 

JSR SETPTRl 

JSR SETPTR2 

JSR SETPTR3 

LDY #5 

LDA {ARRY1PTR),Y 

STA SIZE+1 

CMP (ARRY2PTR),Y 

BEQ SIZEEQl 

JMP ENTRYERR 

OMP (ARRY3PTR),Y 

BEQ SIZEEQ2 

JMP ENTRYERR 

INY 

LDA (ARRY1PTR),Y 

STA SIZE 

OMP (ARSY2PTR),Y 

BEQ SIZEEQ3 ^ 

JMP ENTRYERR 

CMP (ARRY3PTR),Y 

BEQ SIZEEQ4 

JMP ENTRYERR 

LDA #07 

JSR ARYIPLUS 

LDA #07 

JSR ARY2PLUS 

LDA #07 

JSR ARY3PLUS 

JSH INITINT 



121 
122 
123 

124 NOTDONE 
125 
126 
127 
128 

129 NOELMNT 
130 
131 
132 
133 

134 FCUNDEL 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 

159 SHORTER 
160 
161 

162 ESTDESC 
163 
164 
165 



GET INTEGER ARRAY POINTER 
MAKE SURE 1-DIH. ARRAY 
SAVE DESC. ADRS. 



ESTABLISH ARRYl POINTER 
ESTABLISH AfiRY2 POINTER 
ESTABLISH ARHY3 POINTER 

GET SIZE OF ARRAY 

MAKE LOW/HIGH 

MUST BE EQUAL SIZE ARRAYS 

SIZES ARE EQUAL 

SIZES NOT EQUAL 



ORA SIZE+1 
BNE NOTDONE 
JMP STRTSRT 
LDY #00 

LDA (ARRY1PTR),Y 
STA ELMNTLEN 
CMP #00 
BNE FOUNDEL 
LDA #00 
STA NEWLEN 
STA NEWAD 
STA NEWAD+1 
JMP ESTDESC 
INY 

LDA (AHRYIPTR), Y 
STA ELMNTPTR 
INY 

LDA (ARRY1PTR),Y 
STA ELMNTPTR+1 
LDA ELMNTLEN" 
CMP STARTPOS 
BOO NOELMNT 
OLO 

LDA ELMHTPTR 
ADO STARTPOS 
STA NEWAD 
LDA ELMNTPTR+1 
ADC #00 
STA NEWAD+1 
LDA ENDPOS 
CMP ELMNTLEN 
BCS SHORTER 
SEC 

LDA ENDPOS 
SBC STARTPOS 
STA NEWLEN 
INC NEWLEN 
JMP ESTDESC 
LDA ELMNTLEN 
SBC STARTPOS 
STA NEWLEN 
LDA NEWLEN 
LDY *00 

STA (ARRY2PTR),Y 
INY 



; SIZES NOT EQUAL 



; SIZES ARE EQUAL 
jSIZES NOT EQUAL 



; SIZES NOT EQUAL 

; ARRYlPTR=ARRYlPTR+7 

; ARRY2PTR=ARRY2PTR+7 

AflRY3PTR=ARRY3PTR + 7 
INITILIAZE INTEGER ARRAY 
SEE IF MOVE-COUNT = 

;HOVE IS NOT DONE 
jDONE, NOW SORT 

;GET LENGTH OF ELEMENT 
jSAVE 



JNULL ELEMENT 

;ZERO OUT LEN + ADDRESS 



;G0 ESTABLISH DESCRIPTOR 



;GET ADDRESS OF ELEMENT 
iAND SAVE 



;IF ELMNTLEN < STARTPOS 
;THEN ADDRESS + LENGTH = 



; COMPUTE AD + LEN 
;AND SAVE 



,-SEE IF ENDPOS > OR=ELMNTLEN 

;YES, SO USE ELMNTLEN 

jELSE COMPUTE LEN, USE END POS 

; (NEWLEN=ENDPOS-STARTPOS+1) 

;G0 ESTABLISH DESCRIPTOR 
; ( NEWLEN^ELMNTLEN-STARTFOS ) 
; (CARRY IS SET) 

;PUT LENGTH IN NEW 
;DSCRPTR END 
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Alternate Index (continued) 



920C 
920F 
9211 
9212 
9215 
9217 
9219 
921C 
92 IE 
9221 
922i 
9227 
922A 
922D 
922F 
9231 
923-1 
9235 
9237 
923A 
923D 
923F 
9242 
92-i-i 
92-17 
9249 
9240 
924E 
9251 
9253 
9256 
9259 
925C 
925E 
9260 
9263 
9264 
9266 
9268 
9269 
926B 
926D 
926E 
9270 
9273 
9274 
9276 
9278 
9279 
927B 
927D 
9280 
9282 
9285 
9288 
928B 
928D 
9290 
9293 
9296 
9298 
929B 
929E 
92A0 
92A3 
92A5 
92A7 
92A9 
92AB 
92AD 
92AE 
92AF 
92B1 
92B3 
92B6 
92B8 
92BB 
92BE 
92C1 
92C3 
92C6 
92C9 
92CC 



AD 5D 93 
91 52 
C8 

AD 5E 93 
91 52 
A9 i3 
26) 97 93 
A9 6)3 
26) A3 93 
26) BB 93 
40 99 91 
26) 81 93 
26) 80 93 
A^ 6)5 
Bl 52 
80 63 93 
08 

Bl 52 
8D 62 93 
2i BB 93 

Di is, 

AD 62 93 
06) 6)3 
4C OF 92 
A9 6)7 
26) A3 93 
A9 6)7 
2i AF 93 
A9 ii 
8D B3 9i 
80 Bl 9^ 
8D B2 9i 
A6) ii 
Bl 52 
80 AF 9£l 
08 

Bl 52 
85 50 
08 

Bl 52 
85 51 
08 

Bl 52 
80 B«l 9i 
C8 

Bl 52 
85 9B 
08 

Bl 52 
85 90 
EE Bl 9i 
06) ij 
EE B2 9«l 
AD B0 90 
OD AF 90 
B6I 06 
A£ 80 90 
4c 96 92 
AE AF 90 
00 0B 
AO B0 90 
00 AF 90 
B0 11 
40 00 93 
A0 00 
Bl 9B 
Dl 50 
90 55 
00 04 
08 
OA 

00 F4 
A9 03 
20 A3 93 
A9 02 
20 AF 93 
AD Bl 90 
CD 62 93 
F0 03 
4c 50 92 
AD B2 90 
CD 63 93 
F0 03 



166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 STRTSET 

178 

179 

180 

181 

182 

183 

184 

185 DOSORT 

186 

187 

188 

189 

190 DOSORTl 

191 

192 

193 

194 

195 

196 

197 

198 S0RTLP2 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 PAIRNE 

220 

221 

222 

223 

224 PAIR2LNG 

225 PAIR2SHT 
226 

227 
228 
229 

230 OOMPSTRT 

231 COMPLP 
232 

233 

234 

235 

236 

237 

238 OONEYET 

239 

240 

241 

242 

243 

244 

245 

246 DONEYETl 

247 

248 



IDA NEWAD 

STA (AHRY2PTR),Y 

INY 

LDA NEWAD+1 

STA (AHRY2PTR),Y 

LDA #03 

JSR ARYIPLUS 

LOA #03 

JSR ARY2PLUS 

JSR OEOSIZE 

JMP TRANSFER 

JSR SETPTR2 

JSR SETPTR3 

LOY #05 

LDA (ARRY2PTR),Y 

STA SIZE+1 

INY 

LDA (AHRY2PTR),Y 

STA SIZE 

JSR OEOSIZE 

BNE DOSORTl 

LDA SIZE 

BNE DOSORTl 

JMP DONEPASS 

LDA #07 

JSR ARY2PLUS 

LDA #07 

JSR ARY3PLUS 

LDA #00 

STA SWAPFUG 

STA COUNT 

STA OOUNT+1 

LOY #00 

LOA (AHRY2PTR),Y 

STA PAIRILEN 

INY 

LDA (AHRY2PTR),Y 

STA PAIRIAD 

INY 

LDA (AfiRY2PTR),Y 

STA PAIRlAD+1 

INY 

LDA (ARRY2PTR),Y 

STA PAIR2LEN 

INY 

LDA (AfiRY2PTR),Y 

STA PAIR2AD 

INY 

LDA (AfiRY2PTR),Y 

STA PAIR2AD+1 

INC COUNT 

BNE PAIRNE 

INC COUNT+1 

LDA PAIR2LEN 

CMP PAIRILEN 

BOS PAIR2LNG 

LDX PAIR2LEN 

JMP PAIR2SHT 

LDX PAIRILEN 

BNE OOMPSTRT 

LDA PAIR2LEN 

CMP PAIRILEN 

BOS DONEYET 

JMP SWAP 

LOY #00 

LOA (PAIR2AD),Y 

CMP (PAIRIAD), Y 

BCC SWAP 

BNE DONEYET 

INY 

DEX 

BNE COMPLP 

LDA #03 

JSR ARY2PLUS 

LDA #02 

JSR ARY3PLUS 

LDA COUNT 

CMP SIZE 

BEQ DONEYETl 

JMP S0RTLP2 

LDA OOUNT+1 

CMP SIZE+1 

BEQ D0NEYET3 



;N0 DO ADDRESS 



; AHRYlPTR=AHRYlPTR+3 

; AHRY2PTR=AHRY2PTR+3 

; DECREMENT ELEMENT COUNT 

; RESET AKRAY2 POINTERS 
; RESET ARRAY3 POINTERS 



;MA1Q: LOW/HIGH 



;OEC SIZE (PAIRS=ELMNTS-1) 
;MORE PASSES TO MAKE 

;MORE PASSES TO MAKE 

;N0 MORE SWAPS ARE POSSIBLE 

;ADO 7 TO OESO. BASE ADHS. 
;+ 7 TO ARRY2 BASE OESO. 



jINIT PAIR COUNT 



;INIT Y 

;GET LENGTH OF 1ST PAIR MEMBER 



;GET ADHS. OF 1ST PAIR MEMBER 



iGET LENGTH OF 2ND PAIR MEMBER 



;GET ADHS. OF 2ND. PAIR MEMBER 



; INCREMENT COMPARE COUNT 



;FIND SHORTER ELEMENT 



;PAIR MEMBER 2 IS SHORTER 

;PAIR MEMBER 2 IS LONGER OR 
;IF SHORTEST=0;MAYBE= 
; COMPARE LENGTHS 

;PAIR2LEN = OR > PAIRILEN 

;P2LN=08=P1LN^0 

jINIT Y 

; COMPARE CHARACTERS 

JPAIRI > PAIR2 
jPAIRl < PAIR2 



;MORE BYTES TO COMPARE 

jBUMP ARRY2PTR + 3 

;BUMP ARRY3PRT + 2 

;SEE IF WE HAVE 

.-COMPARED ALL ACTIVE PAIRS 

;N0 CONTINUE COMPARES 
/MAYBE 

;MORE COMPS THIS PASS? 



Alternate Index (continued) 



92CE 
92D1 
92D4 
92D6 
92D9 
92DC 
92DF 
92E2 
92E4 
92E7 
92E9 
92EC 
92EE 
92F1 
92F3 
92F6 
92F8 
92FB 
92FD 
9300 
9302 
9305 
9307 
9309 
9300 
930D 
930F 
9311 
9313 
9316 
9317 
9319 
931B 
931D 
9320 
9323 
9325 
9326 
9329 
932B 
9320 
9330 
9333 
9335 
9336 
9338 
933A 
933B 
9330 
933F 
93-11 
9344 
93-16 
9349 
93-iB 
93-iE 
93-iF 
9351- 
9354 
9354 
9356 
9358 
935A 
935B 
9350 
935D 
935F 
9360 
9362 
9364 
90AF 
90B0 
90B1 
90B3 
90B4 
90B6 
936A 
936A 
9360 
936E 
9370 



4C 50 92 
AD B3 90 
F0 09 
20 81 93 
20 80 93 
4C 3A 92 
AD 64 93 
85 50 
AD 65 93 
85 51 
AD 66 93 
85 52 
AD 67 93 
85 53 
AD 68 93 
85 5-1 
AD 69 93 
85 55 
40 95 Dg 
A0 00 
AD B0 90 
91 52 
Bl 54 
8D B4 9^ 
08 

A5 9B 
91 52 
Bl 54 
80 B5 90 
08 

A5 90 
91 52 
Bl 54 
80 B6 90 
AD B4 90 
91 54 
08 

AD AF 90 
91 52 
Bl 5^ 
80 B7 90 
AD B5 90 
91 54 
08 

A5 50 
91 52 
08 

A5 51 
91 52 
A9 01 
80 B3 90 
A0 00 
AD B6 90 
91 54 
AD B7 90 
08 

91 5-i 
4C Bl 92 



249 JMP S0RTLP2 

250 D0NEYET3 LOA SWAPFLAG 

251 BEQ DONEPASS 

252 JSR SETPTR2 

253 JSR SETPTR3 

254 JMP DOSORT 

255 DONEPASS LOA ZEROSV 

256 STA ARRYIPTR 

257 LOA ZEROSV+1 

258 STA AHRYlPTR+1 

259 LDA ZEROSV+2 

260 STA AHRY2PTR 

261 LOA ZEROSV+3 

262 STA AHRY2PTR+1 

263 LOA ZEROSV+4 

264 STA AHRY3PTR 

265 . LOA ZEROSV+5 

266 STA AHRY3PTR+1 

267 JMP DATA 

268 SWAP LDY #00 

269 LOA PAIR2LEN 

270 STA (ARRY2PTR),Y 

271 LOA (ARRY3PTR),Y 

272 STA INTEGERl 

273 INY 

274 LOA PAIR2AD 

275 STA (ARRY2PTR),Y 

276 LDA (AHRY3PTR),Y 

277 STA INTEGERl+1 

278 INY 

279 LDA PAIR2AD+1 

280 STA (ARRY2FTR),Y 

281 LDA (ARRY3PTR),Y 

282 STA INTEGER2 

283 LOA INTEGERl 

284 STA (ARfiY3PTR),Y 

285 INY 

286 LOA PAIRILEN 

287 STA (ARHY2PTR),Y 

288 LDA (ARRY3PTR),Y 

289 STA INTEGER2+1 

290 LOA INTEGERl+1 

291 STA (AHRY3PTR),Y 

292 INY 

293 LOA PAIRIAD 

29-1 STA (ARRY2PTR),Y 

295 INY 

296 LOA PAIRlAD+1 

297 STA (ARRY2PTR),Y 

298 LOA #01 

299 STA SWAPFUG 

300 LDY #00 

301 LOA INTEGER2 

302 STA (ARRY3PTR),Y 

303 LDA INTEGER2+1 

304 INY 

305 STA (ARRY3PTR),Y 

306 JMP DONEYET 

307 /INTERNAL STORAGE AREAS 

308 SAVARRYl DPS 2,0 

309 SAVAHRY2 OFS 2,0 

310 SAVARRY3 DFS 2,0 

311 ELMNTLEN OFS 1,0 

312 STARTPOS OFS 1,0 

313 ENDPOS OFS 1,0 

314 NEWAD OFS 2,0 

315 NEWLEN OFS 1,0 

316 ELMNTPTR DFS 2,0 

317 SIZE OFS 2,0 

318 ZEROSV OFS 6,0 

319 PAIRILEN EQU SETVEC 

320 PAIR2LEN EQU SETVEC+1 

321 COUNT EQU SETVEC+2 

322 SWAPFUG EQU SETVEC+4 

323 INTEGERl EQU SETVEC+5 

324 INTEGER2 EQU SETVEO+7 



NO - CONTINUE PASS 

SEE IF WE NEED MORE PASSES 

NO SWAPS-SO WE ARE DONE 

RESET AHRAY2 POINTERS 

RESET ARRAY3 POINTERS 

CONTINUE SORT 

RESTORE ZERO PAGE 



SWAP VALUES 
FROM MEMBER 2 
TO MEMBER 1 

jSAVE LOW ELEMENTS INDEX MSB 



;SAVE LOW ELEMENTS INDEX LSB 



jSAVE HIGH ELEMENTS INDEX MSB 



jSAVE HIGH ELEMENTS INDEX LSB 



;S¥AP 



;SET SWAP FUG 



/COMPLETE INTEGER SWAP 



/CONTINUE SORT 

HOLD ARRAYl DESCPTR. ADRS. 

HOLD ARRAY2 DESCPTR. ADRS 

HOLD AHRY3 DESCPTR. ADP£. 

ELEMENT LENGTH 

START POSITION 

END POSITION 

NEW ELEMENT ADDRESS 

NEW ELEMENT LENGTH 

ELEMENT POINTER 

SIZE OF ARRAY 

ZERO PAGE SAVE AREA 

REUSE SETVEC (ONLY AT BRUN) 



A0 04 
Bl 9B 
C9 01 
F0 03 



325 / 

326 CHKONE 
327 

328 
329 



< < < SUBROUTINES > > > 



LOY 14 

LDA (LOWTR),Y 

CMP #1 

BEQ CHKONEXT 



CHECK NO. DIM TO 
MAKE SURE IT IS A 
ONE DIMENSION ARRAY 
OK 



(continued) 



66 



MICRO - The 6502/6809 Journal 



No. 56 -January 1983 



Alternate Index (continued) 



9372 4C C9 DE 

9J75 6ii 

9376 AD 54 93 

9379 85 50 
937B AD 55 93 
937E 85 51 

9380 60 

9381 AD 56 93 
9384 85 52 
9386 AD 57 93 
9389 85 53 

93 8B 60 
938C AD 58 93 
938F 85 54 
9391 AD 59 93 
9394 85 55 

9396 60 

9397 18 

9398 65 50 
939A 85 50 
939C A9 00 
9391: 65 51 
93A0 85 51 
93A2 60 
93A3 18 
93A4 65 52 
93A6 85 52 
93A8 A5 53 
93AA 69 00 
93AC 85 53 
93AE 60 
93AF 18 
93B0 65 54 
93B2 85 54 
93B4 A5 55 
93B6 69 00 
93B8 85 55 
93BA 60 
93BB 18 

93BC AD 62 93 
93 BF E9 00 
93C1 80 62 93 
93C4 AD 63 93 
93C7 E9 00 
93C9 8D 63 93 
93CC 60 
93CD A9 00 
93CF 8D Bl 90 
93D2 8D B2 90 
93D5 A0 00 
93D7 AD B2 90 
93DA 91 54 
93DO C8 
93DD AD Bl 90 
93EO 91 54 
93E2 A9 02 
93E4 20 AF 93 
93E7 EE Bl 90 
93FA D0 03 
93EC EE B2 90 
93EF AD 62 93 
93F2 CD Bl 90 
93F5 D0 DE 
93F7 AD 63 93 
93FA CD B2 90 
93FD D0 D6 
93 FF 60 



330 

331 CHKONEXT 

332 SETPTRl 
333 

334 

335 

336 

337 SETPTR2 

338 

339 

340 

341 

342 SETPTR3 

343 

344 

345 

346 

347 ARYIPLUS 

348 

349 

350 

351 

352 

353 

354 AHY2PLUS 

355 

356 

357 

358 

359 

360 

361 AR13PLUS 

362 

363 

364 

365 

366 

367 

368 DECSIZE 

369 

370 

371 

372 

373 

374 

375 

376 MITINT 

377 

378 

379 INITLOOP 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 COUNTNE 

391 

392 

393 

394 

395 

396 



JMP SYNERR 

RTS 

IDA SAVARRYl 

STA AEHYIPTR 

LDA SAVAKHYl+l 

STA ARHYlPTR+l 

RTS 

LDA SAVARRY2 

STA ARHY2PTR 

LDA SAVAI)RY2+1 

STA ARRY2PTR+1 

RTS 

LDA SAVAfiRY3 

STA ARRY3PTR 

LDA SAVARHy3+l 

STA ARHY3PTR+1 

RTS 

CLC 

ADC ARRYIPTR 

STA ARHYIPTR 

EDA #00 

ADC ARHYlPTR+l 

STA ARBYlPTH+l 

RTS 

CLC 

ADC ARHY2PTH 

STA ARRY2PTH 

LDA AEfiY2PTR+l 

ADC #00 

STA ARHY2PTR+1 

RTS 

CLC 

ADC ARHY3PTH 

STA AEfiY3PTH 

LDA ARRY3PTR+1 

ADC #00 

STA ARfiY3PTR+l 

RTS 

CLC 

LDA SIZE 

SBC #00 

STA SIZE 

LDA SIZE+1 

SBC #00 

STA SIZE+1 

RTS 

LDA #00 

STA COUNT 

STA COUNT+1 

LDY #00 

LDA COUNT+1 

STA (ARRY3PTR),Y 

itn 

LDA COUNT 

STA (AHRY3PTR),Y 

LDA #02 

JSH ARY3PLUS 

INC COUNT 

BNE COUNTNE 

INC COUNT+1 

LDA SIZE 

CMP COUNT 

BNE INITLOOP 

LDA SIZE+1 

CMP COUNT+1 

BNE INITLOOP 

RTS 



;DISP SYNTAX ERROR MESSAGE 



; ESTABLISH «ORK POINTER 
;F0R SOURCE ARRAY DESC. 



; ESTABLISH ARfiY2 POINTER 
;FOR DESTINATION ARRAY DESC. 



;ESTABLISH ARHY3 POINTER 
;F0R INTEGER ARRAY DESC. 



;ADD ACCOM TO AHRYIPTR 



;ADD ACCUM TO ARRY2PTR 
i= ADDRESS OF FIRST ELHNT 



;ADD ACCUH TO ARRY3PTR 
;= ADDRESS OF FIRST ELHNT 



; DECREMENT ELEMENT COUNT 



;INIT INT ARRAY 



jINIT Y REG 

; STORE COUNT IN ARRAY 



; POINT TO NEXT ELEMENT 

;N0 NEED TO INC COUNT+l 

;SEE IF WE ARE DONE INITINO 

;N0 
; MAYBE 
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}IM's e^ng 
your Apple? 

Find out with Apple-Cillin II™ 

If you use your Apple for your business or 
profession, you probably rely on it to save you 
time and money. You can't afford to guess 
whetfier it is working properly or not. Now you 
don't tiave to guess. Now you can find out 
with Apple-Cillin II. 

Apple-Cillin II is the comprehensive diagnostic 
system developed by XPS to check the 
performance of your Apple II computer system. 
Apple-Cillin II contains 21 menu driven utilities 
including tests for RAM memory ROM 
memory, Language Cards, Memory Cards, 
DISK system. Drive Speed, Keyboard, Printer, 
CPU, Peripherals, Tape Ports, Monitors and 
more. These tests will thoroughly test the 
operation of your Apple, and either identify a 
specific problem area or give your system a 
clean bill of health. You can even log the test 
results to your printer for a permanent record. 

Apple-Cillin II works with any 48K Apple system 
equipped with one or more disk drives. 

To order Apple-Cillin II - and to receive 
information about our other products - Call 
XPS Toil-Free: 1-800-233-7512. In Pennsylania: 
1-717-243-5373 

Apple-Cillin II: $49.95. PA residents add 6% 
State Sales Tax. 



XPS 



XPS, Inc. 

323yofkf^oad 

Carlisle. Pennsylvania 1/013 

800-233-7512 

/11-243-53/3 



Apple II is a registered trademark of Apple Computer Inc. 
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AARDVARK 
TRS-80 COLOR OSI VIC-64 VIC-20 SINCLAIR TIMEX 




TUBE FRENZY 

(by Dave Edson) 
This is an almost indescribably fast action 
arcade game. It has fast action, an all new 
concept in play, simple rules, and 63 levels 
of difficulty. All machine code, requires 
Joysticks. Another great game by Dave 
Edson. TRS 80 COLOR ONLY, 16k and 
Joysticks required. $19.95. 



QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job Is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16k TRS-80, TRS-80 Color, and Sin- 
clair. 13K VIC-20. $14.95 each. 




ADVENTUREStI! 

These Adventures are written in BASIC, are 
full featured, fast action, full plotted ad- 
ventures that take 30-60 hours to play. (Ad- 
ventures are interactive fantasies. It's like 
reading a book except that you are the main 
character as you give the computer com- 
mands like "Look in the Coffin" and 
"Light the torch.") 

Adventures require 16k on TRS80, TRS80 
color, and Sinclair. They require 8k on OSI 
and 13k on Vic-20. Derelict takes 12k on 
OSI. $14.95 each. 

ALSO FROM AARDVARK - This 
TRS-80 Color and OSI ), business 



CATERPILLAR 

O.K., the Caterpillar does look a lot like a 
Centipede. We have spiders, falling fleas, 
monsters traipsing across the screen, poison 
mushrooms, and a lot of other familiar 
stuff. COLOR 80 requires 16k and Joy- 
sticks. This is Edson's best game to date. 
$1 9.95 for TRS 80 COLOR. 

PROGRAMIUIERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs 
the widest possible coverage. Quality is the 
keyword. If your program is good and you 
want it presented by the best, send it to 
Aardvark. 

ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough! 

HAUNTED HOUSE (by Bob Anderson) 
It's a real adventure— with ghosts and ghouls 
and goblins and treasures and problems — 
but it is for kids. Designed for the 8 to 12 
year old population and those who haven't 
tried Adventure before and want to start 
out real easy. 

DERELICT 
(by Rodger Olsen & Bob Anderson) 
New winner in the toughest adventure from 
Aardvark sweepstakes. This one takes place 
on an alien ship that has been deserted for a 
thousand years — and is still dangerous! 




CATCH 'EM 

(by Dave Edson) 
One of our simplest, fastest, funnest, all 
machine code arcade games. Raindrops and 
an incredibe variety of other things come 
falling down on your head. Use the Joy- 
sticks to Catch'em. It's a BALL! — and a 
flying saucer! — and a Flying Y!— and so 
on. TRS 80 COLOR. $19.95. 

BASIC THAT ZOOOMMS!! 
AT LAST AN AFFORDABLE COMPILER! 

The compiler allows you to write your 
programs in easy BASIC and then auto- 
matically generates a machine code equiv- 
alent that runs 50 to 150 times faster. 
It does have some limitations. It takes at 
least 8k of RAM to run the compiler and it 
does only support a subset of BASIC— 
about 20 commands including FOR, NEXT, 
END, GOSUB, GOTO, IF, THEN, RETURN, 
END, PRINT, STOP, USR (X), PEEK, 
POKE, *, /, -I-, -, > , < ,=, VARIABLE 
NAMES A-Z, SUBSCRIPTED VARIABLES, 
and INTEGER NUMBERS FORM 0-64K. 
TINY COMPILER is written in BASIC. It 
generates native, relocatable 6502 or 6809 
code. It comes with a 20-page manual and 
can be modified or augmented by the user. 
$24.95 on tape or disk for OSI, TRS-80 
Color, or VIC. 



Please specify system on all orders 
is only a partial list of what we carry. We have a lot of other games (particularly for the 
programs, blank tapes and disks and hardware. Send $ 1 .00 for our complete catalog. 



w 



AARDVARK - 80 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 

Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri. 
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PET Vet 



By Loren Wright 



What's So Good About 
the Commodore 64? 

It looks almost exactly like the VIC-20, 
but the $595 list price is twice that of 
the VIC's. There are a few external dif- 
ferences. The color of the case is light 
tan instead of off-white; the keyboard 
has a more comfortable feel; there are 
two controller ports instead of one; the 
power supply is considerably bigger and 
connects to a more elaborate jack on 
the computer; the cartridge port is nar- 
rower; the modulator is built into the 
computer with a deeply recessed chan- 
nel 3/4 switch. 

When you turn on the C64, more dif- 
ferences are apparent. There are 40 col- 
umns across, instead of 22, and it comes 
up with 38911 bytes free — more than 
ten times that of the VTC! The graphics 
(see last month's column) and sound 
capabilities are considerably more ad- 
vanced than the VIC's. After that, com- 
parison to the VIC is not very useful. 

The C64 actually has 64K of RAM, 
and you do get nearly 8K more for 
BASIC than you do with a 32K PET. For 
machine language there's another 8K at 
$COOO-$CFFF. However, if you want to 
strip down the C64's operating system 
to the essential routines or KERNAL 
(get a character, put a chaiacter, etc.], 
you can gain access to a lot more RAM 
for machine-language programs. You 
can copy the BASIC ROMs into RAM, 
make changes as you like, and run from 
the new RAM copy. 

The difference is the 6510 processor 
with its built-in I/O port and tri-state 
address lines. This allows RAM and 
ROM to share the same address space, 
with the processor switching only one 
in at a time. For instance, the I/O 
devices (VIC-II, SID, CIA) and color 
RAM are addressed exactly the same 
place ($DOOO-$DFPF) as the character 
generator ROM [not to mention the 
RAM available there!). The 6510 is able 
to do all the necessary switching at the 
right times to pull this off. Unlike the 
6509 [to be included in the PET/CBM 



B, P, and BX), the addressing range of 
the 6510 is still only 64K. 

It is very encouraging that so much 
technical information is available on 
the C64. Before the C64 was released, 
Commodore had an Lnformation kit, 
including memory maps and develop- 
ment software, available to serious 
software developers. The Piogiammei's 
Reference Guide should be available by 
the time you read this. Unlike Com- 
modore publications before the VIC 
Piogiammei's Refeience Guide, the 
"Guide" fot the C64 is thoroiigh, well 
done, and very useful. 

Availability of software for the C64 
is not as much a problem as first an- 
ticipated. Most PET programs can be 
converted easily to mn on the C64. 
Many already have. C64 versions of 
such popular PET programs as WordPro 
3, MAE, and VisiCalc should be avail- 
able shortly. Over 300 educational pro- 
grams are now offered by the Toronto 
PET Users' Group. I have already 
received review copies of C64 versions 
of "Tiny BASIC Compiler" from 
Abacus Software and "KMMM Pascal" 
from Wilserv Industries (available from 
AB Computers). There already is a fair 
amount of public domain software, in- 
cluding some nifty demonstrations, an 
assembler, a sprite editor, a character 
editor, and a SID monitor. These 
started out in Commodore's software 
developer's kit, but most users' groups 
should have these by now. 

There is some cause for concern in 
the software area, though. The CP/M 
and IEEE cartridges have been delayed 
considerably. If you are counting on 
CP/M software for the C64 right away, 
don't hold your breath! Even when the 
cartridge does become available you 
will have to have each CP/M disk con- 
verted to CBM format. 

Commodore has no immediate 
plans to release an IEEE adaptor, but 
two (and maybe three when you read 
this) such units are available from in- 
dependent vendors. The fanciest unit, 
called the C64-LINK, sells for $185 
(Canadian) from Richvale Communica- 
tions (10610 Bayview Avenue, Rich- 
mond Hill, Ontario L4C 3N8, Canada). 
Not only does it interface to the IEEE, 



but it also adds BASIC 4 commands and 
a machine-language monitor. A less 
elaborate interface is available from 
Micro-Systems (11105 Shady Trail 
Suite 104, Dallas, TX 75229) for 
$109.95. It provides the IEEE interface 
only, under control of BASIC 2. A third 
company in Arizona has announced an 
IEEE adaptor, still under development. 
Reviews of the Micro-Systems and 
Richvale Communications units will 
appear soon in our "Reviews in Brief" 
department. 

There are a few things I don't like 
about my new C64. Perhaps the biggest 
gripe is that as soon as I bought the 
computer I had to buy more equipment 
to get a workable system. I was able to 
get through an orientation period with 
a feeble, old, black and white TV and a 
borrowed CBM cassette. The first 
move was to purchase a C64 Link so I 
could use the CBM disk and printer 
from work. Then I bought a color TV. 
When I get tired of carrying the disk 
drive back and forth, I'll want my own. 
All the other computers in the C64's 
price range are designed in a similar 
modular fashion, so I must have been 
spoiled all this time by the PET's com- 
pleteness! Two other gripes — BASIC 2 
and the lack of a machine-language 
monitor — were solved with the addi- 
tion of the C64 Link. It would also be 
nice to have a numeric keypad. 

All in all, I'm happy with the pur- 
chase. The C64 will satisfy my needs 
for a computer that is both practical 
and recreational. I predict it will have a 
big impact on the market. Apple and 
Atari will have to make some fast 
moves to compete. 

PET, VIC, and C64 BASIC 
Compatibility 

If you own more than one Com- 
modore computer, you will eventually 
want to be able to load programs writ- 
ten on one machine into another. If you 
are writing programs, your develop- 
ment software and firmware (assem- 
bler/editor, disassembler, Toolkit, 
POWER, etc.) is likely to be concen- 
trated on one machine. Converting a 
program is usually a simple matter. 
With the exception of the MAX 
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(continued) 



machine, all Commodore computers 
use essentially the same BASIC. There 
aie slight differences in the control 
characters implemented (color and pro- 
grammable function keys on the VIC 
and C64; screen editing and window 
controls on the 8032 — unimple- 
mented characters are ignored) and in 
the screen format (22 VIC columns, 40 
for PET and C64, and 80 for 8032). 
BASIC 4 commands need to be replaced 
by BASIC 2 commands in the VIC, 
C64, and earlier PETs. Of course, more 
serious problems arise with machine- 
language programs and with BASIC 
programs that do PEEKs and POKEs to 
machine-dependent locations. 

The cassette format and handling is 
exactly the same from machine to 
machine. Even though the VIC disk 
drive is serial rather than IEEE, the ac- 
tual diskette can be handled by the PET 
disk drives (except the 8050). 

But even though BASIC programs 
on these machines are basically com- 
patible, there is a problem. BASIC text 
starts at different locations in the dif- 
ferent machines. In the PET and CBM 



models, programs always start at $401. 
In an unexpanded VIC it's $1001, but 
with the 3K expansion it's $401. In the 
C64, BASIC usually starts at $801. The 
situation is far from hopeless, though. 
The VIC and C64 both have relocating 
loaders: a BASIC program, no matter 
where it was originally located or from 
which Commodore machine it was 
SAVEd, will automatically load at the 
current start of BASIC. The PET/CBM 
does not have this capability; it loads a 
program at the original location, but 
looks for it at $401. How do we get a 
program from $1001 or $801 to $401, 
where the PET expects to find it? 

One way is to configure your C64 or 
VIC so that BASIC programs always 
start at $400. For the VIC, you need the 
3K RAM expansion that fills in 
$400-$FFF. The VIC automatically ad- 
justs to start BASIC at $401. For the 
C64, you need to move the screen to 
$8000 (where it is in the PET] and 
move the start of BASIC to $401. There 
is a short program called "C64 to PET" 
included on the developers' disk men- 
tioned above, that does this. 

Another, more general-purpose proce- 
dure is outlined below. It works with all 



but the very longest BASIC programs. 

1. Type a one- line program into your 
PET (e.g., 1 REM) 

2. Load the VIC or C64 program. 

3. POKE 1025,1: POKE 1026,8 to move 
a program from $801. Or, POKE 
1025, l:POKE 1026, 16 to move a pro- 
gram from $1001. 

4. Delete the original single line by 
typing its number, hit return, and the 
whole program will move to $401! 

New Users' Gioup and Newsletter 
for the SuperPET 

The SuperPET Users' Group (SPUGj 
is putting out a newsletter called the 
SupeiPET Gazette. Membership is 
$10/yeaT and includes a subscription. 

Paul V. Skipski, Secretary 

SuperPET Users' Group 

4782 Boston Post Road 

Pelham, INfY 10803 
The second issue was ten pages and in- 
cluded resource information, utility 
programs, and statements of purpose 
and direction. 

ilMCAO 



PET/CBM 

SOFTWARE 



8032 

DISPLAY 



OR 



4032 

DISPLAY 



FROM THE KEYBOARD OR PROGRAM 
NOW RUN WORD PRO 3 OR WORD PRO 4 

FROM THE SAME MACHINE 

Available for either 4000 or 8000 Series 

ALSO: 
For 2001 / 3000 Series Computers 

Operate these Models in a Full 8032 Lil<e 

Display For Word Pro 4* 

and all other 80 Column Software 

All installation instructions included. 

EXECOM CORP. 

1901 Polaris Ave. 
Racine, Wl 53404 
Ph.414-632-1004 

PET/CBM a trademark of Commodore Business Machines 
♦trademark of Professional Software, Inc. 
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NEW SOFTWARE 

for TRS 80 Model III 

and the Color Computer 



■ Church Contribution System 

designed to simplify and facilitate the tedi- 
ous chore of recording envelopes. Provides a 
variety of reports. Maintains its own data- 
files. Only $-150 

■ Data Base Manager 

designed to help organize alt your data and pro- 
vide you with meaningful reports. Add or delete 
any information. New files can be created and 
old information transferred. Only $150 

■ Single Entry Ledger 

designed as an uncomplicated control of 
finances for home or small business. Add, de- 
lete, edit at any time. Compatible with 
DBM. Only $95 

Write or phone for complete software price list. 



UNIVERSAL 

DATA 
WW RESEARCH 




VISA' 



Dept. Ml 2 

2457 Wehrle Drive 
Amherst, NY 14221 
716/631-3011 
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Extending Newton-Raphson's 

Method to Evaluate 

Complex Roots 



by P.P. Ong 



This article discusses a 
standard procedure to compute 
the complex roots of a 
polynomial equation using the 
microcomputer. The 
accompanying program can be 
incorporated as a subroutine for 
applications programs. An 
extension to cover non- 
polynomial equations is also 
discussed. 



NR's Method 

requires: 

Any Microsoft BASIC 
(although written in Applesoft) 



Many scientific and engineering ap- 
plications require handling complex 
numbers and computing the complex 
roots of equations. Common practical 
examples involving complex quantities 
occur in wave attenuation calculations, 
solutions of differential equations, 
alternating current network, Fourier 
transformation, diffraction pattern 
analyses, and plane vector algebra. 
Most microcomputers are, as yet, not 
designed to handle complex numbers. 
Indeed, complex numbers are generally 
not covered in the standard or extended 
BASIC languages. Users wishing to 
modify a language to include such 
quantities invariably encounter an 
almost insuperable obstacle posed by 
the limited RAM capacity of the micro- 
computer. This seems a drawback, 
especially since the computations in- 
volve an iterative procedure for which 
the computer would be very efficient 
otherwise. 

An illuminating consequential trend 
is found in the usage of the well-known 
Newton-Raphson numerical procedure 
to solve an algebraic equation. With the 
widespread use of the micro, this 



method has become so popular that it 
has by and large superseded the more 
conventional method of resorting to 
complicated mathematics to produce 
exact solutions. The greater accuracy of 
the latter method is not always re- 
quired for real-life problems; in any 
case, there is often no possible solution 
by the exact method. 

A standard Newton-Raphson pro- 
cedure for complex roots is also 
available (e.g., see W.E. Grove, Biief 
Numerical Methods, Prentice-Hall 
(1966), pp. 9-14), yet it is seldom used 
in practice. This is because the 
numerical evaluations usually become 
too protracted and rarely conclude suc- 
cessfully. In fact, very few textbooks 
on numerical analysis treat complex 
root evaluations seriously. 

I have developed a system to extend 
Newton-Raphson's method using de 
Moivre's theorem. It is now my stan- 
dard routine and is applicable for both 
real and complex roots of any poly- 
nomial equation with real coefficients. 
The computer itself does not need to 
handle complex quantities — only 
standard trigonometric fimctions such 
as sine, cosine, and arc tangent, which 
are all built-in BASIC functions. 

A detailed mathematical formula- 
tion is presented for those who want to 
know why the method works, but this 
section may be by-passed in a first 
reading. 

Mathematical Formulation 

Suppose a polynomial equation of 
degree n and having only real coeffi- 
cients is given. It can be written in the 
form 

(1) F(x) = So -t- a^x -t- a^x^ -t- ... -t- 
a„x" 

Its derivative is 

(2) F'(x) = a, -t- 2a2X -t- Sa^x^ + ... + 
na„x""' 



Newton-Raphson's iteration formula is 

(3) x,^, = X, - {F(x,)/F'(x,) } 
Put 

(4) Xn = p -t- qi = A(cos -t- i sin 0) 
= Ae'^ 

so that 

(5) A = SQR(p2 -t- q2) 
and 

(6) ^tan-''(q/p) forpt.#,Oorq = 
=<n/2 forp = Oandq>0 

■ n/2 for p = and q < 

The case Xj, = p = q = is obviously 
trivial. To calculate the angular value 
of the arc tangent, care must be taken 
to ensure that it lies in the first qua- 
drant for p > and q > 0, in the second 
quadrant for p < and q > 0, in the third 
quadrant for p < and q< 0, and in the 
fourth quadrant for p > and q < 0. 

Using de Moivre's theorem 

(7) X = A'"(cos m0 -t- sin m0) 
we can re-write equation (3) as 

(8) x,-t-1 = X,, - {(r-t-si)/(t-Hui)} 
where 

(9) r = ao -t- a,Acos0 -t- a2A2cos20 -t- 
... -t- anA''cosn0 

(10) s = aiAsin0 -t- a2A2sin20 -t- 
a3A3sin30 -t- ... -t- anA"sinn0 

(11) t = a, -t- 2a2Acos0 + 3a3A2cos20 
-t- .... + nanA""^cos(n-l)0 

(12) u = 2a2Asin0 -t- 3a3A2sin20 -t- ... 
-t- na„A""'sin(n- 1)0 
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From equation (8) the correction term is 

(13) X;^ + i - Xk = - b{cos(<t) - ^J) + \ 
sin(<t) - tfi) } 

where 

(14) \tan-'(s/r) for r^fcOors = 
((> -\Tt/2 for r = Oand s> 

■7i/2 for r = Oand s< 



and 



(15) 



r 



jtan-'(u/t) forf^fcOoru=0 
= \7i/2 fort = Oandu<0 

- Ti/2 for t = and u < 



and 



(16) b = SQR{(r2 + s'W + u=)} 

Again, to compute the angles from the 
respective inverse tangent functions 
the proper angular quadrants have to be 
found. In equation (14) (the special case 
when r = s = results in x 



k+r 



=xj the 
solution is obviously obtained. 

Equation (16) breaks down if both t 
and u vanish. This occurs when 
F'(x) = and Newton-Raphson's 
method fails in this case. The computa- 
tion has to be restarted with a different 
initial value for x^. 

Barring the above abortive case, the 
iteration procedure continues with 
^^+■^ replacing x,;. The new values of p 
and q become 

(17) p -* p - b cos(<t) - 1^) 
and 

(18) q -* q - bsin(^ - i^) 

Since complex roots occur in pairs 
for a polynomial with real coefficients, 
when one complex root is found its 
complex conjugate would also be a 
root. Furthermore, if x = p ± qi is a pair 
of complex roots, then F(x) has a 
quadratic factor 



(19) (X - p)^ + q= 
(P^ + q^) 



= x= - 2px + 



If a real root is found then q = and F(x) 
has a linear factor (x - p) . By successive 
factorization of F(x] we can reduce the 
degree of the polynomial equation by 
one or two each time, and eventually all 
its roots can be obtained completely. 



The Program 

The above formulation is translated 
into a sub-program written explicitly in 
Applesoft BASIC. It can be readily 
modified to adapt to other micro 
systems. To assist the reader, the pro- 
gram is liberally filled with explanatory 
REMarks at each stage. It can be seg- 
mented at statement numbers 50000, 
51000, 52000, etc. The leading state- 
ment of each segment clearly describes 
the purpose of the segment. 

Because of the nature of the prob- 
lem, there are an inconveniently large 
number of initial parameters that need 
to be supplied by the user. To mini- 
mize this, default values are automati- 
cally chosen whenever possible. The 
exact parameters describing the given 
equation must obviously be supplied 
by the user. All the other parameters 
are defaulted as follow: 

a. Maximum iteration number allowed, 
IM = 30 

b. Maximum error tolerance allowed, 
ER = lE-8 

c. Initial approximation of root: 

real part, P = 1; imaginary part, Q = i 
Provision is available to re-select these 
defaulted values, especially after an un- 
successful iteration. 

Since there is an inherent rounding 
error associated with any floating-point 
number, a perceptible, though normally 
small, error will be propagated after a 
large number of computation steps. 
This magnification of errors is roughly 
proportional to the degree of the poly- 
nomial, the coefficients, and the num- 
ber of high-power terms involved. After 
many successive factorizations it is 
possible for the roots subsequently ob- 
tained to be off by approximately 
0.0001% (see example 1). Although 
this discrepancy is usually negligible, a 
recourse is automatically provided in 
the program by going through a second 
stage re-computation of the original 
equation using each of the previously 
obtained results as starting approxima- 
tion. This should eventually lead to 
new results with the originally 
stipulated accuracy. 

The program is easily incorporated 
as a BASIC subroutine for any applica- 
tions program. If necessary, it can first 
be renumbered (using the Applesoft 
Toolkit's LOADAPA, for instance), and 
then appended at the end of the user's 
application package. It is for this reason 
that the statement numbers are started 
high up at 50000, providing ample 
room for insertion of the user's master 



program. To access the subroutine 
replace its last END statement with a 
RETURN and call it with a GOSUB. 
Alternatively, it is also possible for the 
program to be SAVEd on a disk file and 
EXECed when required. 

Applications 

Two examples that demonstrate the 
application of the program are given 
below: 

Example 1 

Suppose you wish to find the in- 
tersections between the curves 

(20) y = 16 -F 7x= - 13x" + x" + x'' 
and 

(21) y = 12 - X -I- 5x= -F 26x' + 2x'' 

in a Cartesian coordinate system. This 
is equivalent to solving the com- 
plicated algebraic equation 

(22) 4 -F X - 5x2 - 26x3 + 7^5 _ i3x" 
- 2x'2 + x'^ -I- x'" =0 

Ordinarily this problem would be too 
formidable to attempt manually. How- 
ever, with the present program the 
following set of answers (all accurate to 
seven decimal places] was printed on 
the screen in just over nine minutes 
(including a 15-second pause for screen 
reading after each successful iteration) ; 

x = 0.5100436, - 0.3318626 ± 
0.44131791, 1.0542850 ± 
0.39567501, 0.5187938 ± 
0.9907267i, -0.942051 5 ± 
0.36708251, 2.1458455, 
-0.331 5892 ±1.02172581, 
-1.7955200 ±1.76647811 
As an aside, it is worth noting that 
after the first-stage computation the 
last set of roots was X = -1.7955314± 
1.76647941, which differed from the ex- 
act answers by about 1 part in 10'. The 
accumulated propagated error in this il- 
lustration was 0.0001% — minimal 
considering the elaborate computations 
involved. 

Example 2 

Now try to solve the linear differen- 
tial equation 

(23) ^-0.77^- 7.9 d!y + 
dx'° dx" dx« 



1.44 



6*Y 



_-f 5.18 



dx" 



d'y _ 
dx2 



4,275 = 
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12 
13 
U 
15 
16 
17 
18 
19 
20 



REM 
HEM 
HEM 
HEM 
REM 
REM 
REM 
RIM 
REM 
REM 
REM 



* * 

* EXTENDING NEWTON- * 

* RAPHSON'S METHOD * 

* TO EVALUATE COMPLEX * 

* ROOTS * 



P. P. ONG 



'k'k'k'k'k H A A A A A M A R THritA'AAA'jtA A 



50000 TEXT : HOME 

50020 PRINT : PRINT "THIS SUBR COMPUTES THE HEAL AND COMPLEX" 

50040 PRINT ' 'ROOTS OF ANY POLYNOMIAL EQUATION: ' ' ; PRINT 

50060 PRINT "F{X)=A(|3)+A{l)xX+A(2)xXt2+ +A(N)xXtN" 

50080 PRINT : INVERSE : PRINT "SPECIFY THE FOLLOWING INPUTS:": NORMAL 

50100 PRINT : INPUT "N = ";N: DIM A(N) ,SG$(N) ,AA(N) ,P(N) ,Q(N) :NN = N 

50120 FOR I = ? TO N 

50140 PRINT "A("I") = ";: INPUT " " ;A{I) :AA(I) = A(I): NEXT 

50160 PRINT 



50180 ER = IE 
50200 IM = 30 
50220 HT = I?: 
50240 PI - 
50260 PL$ = ' 
50280 PRINT 
(AN$,1) 
50300 IF N = 
50320 IF N = 
50340 P = 1:Q 
50360 IR = IJ: 
51000 IR = IR 
51020 IF IR 

51040 REM Compute A and Theta 
51060 A = SQR (P X P + Q X Q) 
51080 IF Q = |3 THEN Q = EH x EH 
51100 IF P = (3 THEN TH = PI / 2 
51120 TH = ATN (Q / P) 

51140 REM Compute The Proper Quadrant For Theta 
51160 IF TH < ? THEN TH = TH + PI 
51180 IF TH < PI AND Q < (3 THEN TH = TH + PI 
51200 R = A(?): REM Begin Compute R 
51220 FOR I 



REM Set Error Tolerance 
3?: REM Set Max. Iter. No. 
?: REM Inlt Root Counter 

3. 141592654 :FL = |3: HEM Inlt Recomputatlon Flag 
" + " :MN$ = "-" 

INPUT "DEFAULT FOR OTHER PARAMETERS? ' 
= "N" THEN PRINT : PRINT : GOTO 59040 
1 THEN GOSUB 58000 
!3 THEN 60000 

= 1: HEM SET FIRST ITER. VALUE OF X 
GOSUB 56000 

+ 1: REM Begin Iter. Loop 
> IH TEEN 59020 



REM Make Abs(Q)< >? 
SON (Q) : GOTO 51200 



AN$: IF LEFT! 



51240 S = |3: 
51260 FOR I 
51280 T = ?: 
51300 FOR I 
X TH ) : 

51320 U 

51340 FOR I 

X th; 

5136O IF T . 



A t I X COS (I X TH): NEXT 

A t I X SIN (I X TH): NEXT 

A(I) X A t (I - 1) X COS ((I - 1) 

A(I) X A t (I - 1) X SIN ((I - 1) 



U X U)) 



1 TO N:R = R + A(I) 
HEM Begin Compute S 
= 1 TO N:S = S + A(I) 
HEM Begin Compute T 

1 TO N:T = T + I 
NEXT 

REM Begin Compute U 
= 2 TO N:U - U + I 
: NEXT 

? AND U = P THEN 59340 
5I38O B = SQR ((R X R + S X S) / (T 
51400 IF B < EH THEN 52000 
51420 REM Compute Phi and Psi 

51440 IF R = (3 THEN FI = PI / 2 x SON (S) : GOTO 51540 
51460 FI = ATN (S / R) ■ 
51480 HEM Compute the Proper Quadrant for Phi 
51500 IF FI < {I THEN FI = FI + PI 
51520 IF FI < PI AND S < ? THEN FI = FI + PI 
51540 IF T = !3 THEN SI = PI / 2 x SON (U) : GOTO 51640 
51560 SI = ATN (U / T) 

51580 REM Compute the Proper Quadrant For Psi 
IF SI < ? THEN SI = SI + PI 
IF SI < PI AND U < ? THEN SI - SI + PI 
REM Set New P and Q 
P = P - B X COS (FI - SI):Q - Q - B X SIN (FI - SI) 
IF FL = 1 THEN 51000: REM Don't Print on Reeomputation 
PRINT "I=" SPC( IR < 1|3);IR; SPC( 2)"P="P; TAB( 24)"Q="Q: 

HEM Print Result After Each Iter. - 
GOTO 51000 

REM Sucessful Iteration 
52020 HT = RT + 1: HEM Count the No. of Sets of Roots 
52040 P(RT) = P:Q(RT) = Q: REM Store Answers 
52060 IF FL = 1 THEN RETURN 

52080 PRINT : PRINT "NR'S METHOD IS SUCCESSFUL." 
52100 ON (1 + ( ABS (Q) < ER)) GOSUB 53000,55000: GOSUB 50300 
REM Routine for Complex Roots 
PRINT : PRINT "A PAIR OF COMPLEX ROOTS ARE" 
PRINT : PRINT "X = "P" (+/-) " ABS (Q)" x I": PRINT 
FOR I = 1 TO 3000: NEXT 
54000 N - N - 2: REM Reduce Polyn Degree by 2 
54020 IF N = !3 THEN RETURN 
54040 H=-2xP:K = PxP + Qx(l 



51600 
51620 
51640 
51660 
51680 
51700 

51720 
52000 



53000 
53020 
53040 
53060 



54060 
54080 
54100 
54120 
54140 
54160 
54180 
55000 
55020 
55040 
55060 
55080 
55100 
55120 
55140 
55160 
55180 
55200 
56000 
56020 

56040 
56060 
56080 
56100 
56120 

56140 
56160 
56180 

56200 
56220 
56240 
57000 
57020 
58000 
58020 
58040 
58060 
58080 
59000 
59020 
59030 
59040 
5906O 
59080 
59100 
59120 
59140 
59160 
59170 
59180 

59200 
59220 
59240 
5926O 
59280 
59300 

59320 

59340 
59360 
59380 
60000 
60020 
60040 
60060 
60080 

60100 
60120 
60140 
60160 
60180 

60200 
60220 

60240 
60260 
60280 
6O3OO 



REM Reset Coeffs of F(X) After Extracting the Factor (XxX+HxX+K) 
A(|?) = A(!3) / K 
A(l) = (A(l) - H X A(!3)) / K 

IF N = 1 THEN RETURN 

FOR I = 2 TO N 
A(I) = (A(I) - H X A(I - 1) - A(I - 2)) / K 

NEXT : RETURN 

REM Routine for Real Root 

PRINT : PRINT "A SINGLE REAL ROOT FOUND IS" 

PRINT : PRINT "X = "P 

FOR I = 1 TO 3000: NEXT 
N = N - 1: REM Reduce Polyn Degree by 1 

IT N = ? THEN RETURN 

HEM Reset Coeffs of F(X) After Extracting the Factor (X-P) 
A(?) = - kW / P 

FOR I = 1 TO N 
A(I) = - (A(I) - A(I - 1)) / P: NEXT 

RETURN 

HOME : REM Display Screen Heading 

PRINT : PRINT "===============================»=======": PRINT 

: PRINT 

PRINT ' 'NOW COMPUTING " 

FOR I = TO N:SG$(I) = PL$ 

IF A(I) < THEN SG|(I) = MN$ 

NEXT 

PRINT : PRINT : PRINT "F(X) = " ; : 
IF A(|3) < > (3 THEN PRINT A(P); 

IF A(l) < > (3 THEN PRINT SG$(1); ABS (A(l))"xX"; 

IF N < 2 THEN PRINT : PRINT : GOTO 56240 

FOR I = 2 TO N: IF A(I) < > ? THEN PRINT SG$(I); 
ABS (A(I))"xXt"I; 

NEXT : PRINT 

PRINT : PRINT "WITH ER = "ER" AND IM = "IM: PRINT 

PRINT " ": PRINT ; RETURN 

REM Restore Original F(X) 
N = NN: FOR I = |3 TO NN:A(I) = AA(I): NEXT : RETURN 

REM Compute Root of Residual Linear Fraction 
RT = RT + 1:P(RT) = - A((3) / A(l) 

GOSUB 56OOO: PRINT : PRINT "UST ROOT (HEAL) = "P(RT) 

FOR I = 1 TO 3000: NEXT 
N = N - 1: RETURN 

REM Unsuccessful Cases 

HOME : PRINT "MAX ITER. NO. EXCEEDED": PRINT : PRINT 

POKE 34,3 
P = 1:Q = 1: REM Offset P and Q 

HOME : PRINT "TYPE 1 TO RESELECT MAX ITER NO.": PRINT 
TO RESELECT ERR TOLERANCE ' ' : PRINT 
TO RESELECT INIT APROX. ROOT": PRINT 
TO RECOMPUTE ' ' : PRINT 
TO ABORT AND DISPLAY ROOTS ' ' 
OBTAINED SO FAR" 



'TYPE 
'TYPE 
'TYPE 
'TYPE 



PRINT : ON VAL (CH?) GOTO 59220,59240,59260, 



;P,Q: PRINT : PRINT 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT ' ' 

POKE 3'i,0 

PRINT : GET CH$: 

50360,59320 
GOTO 59180 

INPUT "NEW MAX ITER NO. = "jIM: GOTO 59060 
INPUT "NEW ERR TOLERANCE = ";ER: GOTO 59060 
PRINT "SUPPLY THE INIT APPROX OF ROOT BY" 
PRINT "TYPING IN ITS REAL AND IMAG PARTS' ' 
PRINT ' ' (SEPARATED BY A COMMA) : " : INPUT " " 

GOTO 59060 
PRINT : PRINT "COMPUTATION ABORTED." : PRINT : PRINT "LISTING OF 

ROOTS OBTAINED SO FAR;-" : GOSUB 60200; END 
REM Case Where T=U=j3 

PRINT : PRINT "F'(X)=|3 AND NR'S METHOD FAILS" 

PRINT : PRINT "RESELECT FIRST APPROX OF ROOT": PRINT ; GOTO 59260 
REM Compute to Minimize Propagation Errors 
GOSUB 57000 
FL = 1;RM = RT:RT = (3 

HOME : PRINT "PRELIMINARY LISTING OF ROOTS OF EQU.:-" 
GOSUB 60200; INVERSE : PRINT " PLEASE WAIT FOR RECOMPUTED RESULTS 
' ' : NORMAL 
P = P(RT + 1):Q = Q(RT + 1) 

IR = 0: GOSUB 51000; IF RT < RM THEN 60100; REM Compute Next Root 
REM Conclude and Display Summary Results 
PRINT CHR$ (12) 
HOME : PRINT "FINAL LISTING OF ROOTS OF EQUATION:-": GOSUB 60200: 

GOTO 6O3OO 
GOSUB 56060: PRINT 
FOR I = 1 TO RM: PRINT "X > ";: IF ABS (P(I)) > ER THEN PRINT 

P(r); 

IF ABS (Q(I)) > ER THEN PRINT " (+/-) " ABS (Q(I))" x I"; 

PRINT ; PRINT 

NEXT ; PRINT "=========================.======.======": RETURN 

END 
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First try the solution 

(24) y = Ae''" 

where A and k are constants. By direct 
substitution and dividing the resulting 
equation throughout by -Ac'''' you 
will obtain 

(25) k'° + 0.77k' - 7.9k« - 1.44k'' + 
5.1 8k2 + 4.275 - 

The computer took four minutes to 
complete the first-stage computation 
and a further 45 seconds for the second 
stage to produce the answers: 

k = ±0.2692324 + 0. 80972081, 
± 1 .5266484, ± 1 .0626761 , ± 1 .75031 78i 

The general solution to equation (23) is 
therefore 

(26) y = A,exp(k,x) + A2exp(k2X) + ... 
+ A,oexp(ki<,x) 

where the A's are the ten integration 
constants and the k's are the respective 
real or complex roots obtained. 



The Results 

There is no problem of unattainable 
accuracy up to the limits of the ac- 
curacy of the computer. The computer 
merely must perform extra iterations to 
achieve the desired results. Con- 
vergence is usually very rapid except in 
regions of x where F'jx) is very small — 
a general defect of the Newton-Raphson 
method. To safeguard against this rare 
eventuality the computer prints the 
answers after each stage of iteration so 
that a quick visual inspection can be 
made. When this occurs a simple 
remedy is to re-run the program with a 
different initial trial root. 

In the hundreds of equations I have 
solved using this method I have seldom 
found it unworkable. I'll leave it to the 
experts to do a rigorous analysis of the 
convergence and stability, or other- 
wise, of the iteration. It is enough to 
mention that the method will, be inac- 
accurate only if both the equations 
F[x)=0 and F'(x)=0 happen to share 
the same root. At the same time, a very 
high level of accuracy approaching 
the computer's own accuracy limits 
(e.g., ER < 10"*) is expected. For ex- 
ample, when 



from 



+ POWER 
COMPUTECH 



Check the 

outstanding 

documentation 

supplied with 
AIM65 



All prices 
Postpaid 

(Continental 
U.S. — 
otherwise 
$2 credit) 

Top quality power supply designed to Rockwell's specs for fully 
populated AIM 65 — includes overvoltage protection, transient 
suppression, metal case and power cable: 
PSSBC-A (5V 2A Reg; 24V .5A Avg, 2.5A Peak, Unreg) ...$64.95 
Same but an extra AMP at 5 volts to drive your extra boards: 
PSSBC-3 (5V 3A Reg; 24V .5A Avg, 2.5A Peak, unreg) ...$74.95 

The professional's choice in microcomputers: 

AIM65/1 K RAM $429.95 BASIC (2 ROMS) $59.95 

AIM65/4K RAM $464.95 ASSEMBLER (1 ROM) . .$32.95 

FORTH (2 ROMS) $59.95. 

SAVE EVEN MORE ON COMBINATIONS 

AIM65/1K-H PSSBC-A .$479.95 AIM65/4K -(- PSSBC-3 .$524.95 

We gladly quote on all AIM65/40 and RM65 items as well. 

ORDERS: (714) 369-1084 

P.O. Box 20054 • Riverside, CA 92516 ^ 

California residents add 6% sales tax 



(27) F(x) = (1 -f x'Y =1-1-2x2-1- 
x' = 

which has the same roots x = ± i as 

(28) F'(x) = 4x(1 -I- x^) =0 

is input with the error tolerance set at 
ER = 0.000001 the machine settles 
down to the slightly imperfect result of 

X = 1 .89330634E - 06 ± i 



Conclusion 

A general routine has been 
established that may be used to com- 
pute for both the complex and real 
roots of any polynomial equation. The 
routine itself does not involve complex 
numbers and is therefore appropriate 
for application on a microcomputer (or 
even a programmable calculator). 

By going through two rounds of 
computations, residual errors propa- 
gated over the numerous computation 
stages can be eliminated, thereby en- 
suring the stipulated accuracy of the 
final results. The routine can also be in- 
corporated in applications programs 
and called as a regular subroutine. 

The method described can be ex- 
tended to equations involving simple 
trigonometric, hyperbolic, or transcen- 
dental functions provided such a func- 
tion can be expanded as a convergent 
power series and approximated to a 
polynomial by truncating at some ar- 
bitrary power. Such series are con- 
vergent only for ABS(x) < 1. For cases 
where ABS(x) < 1 a reciprocal trans- 
formation y=l/x can often be tried 
successfully. 



Dr. P.P. Ong has a Ph.D. in ionic physics 
from University College London. He is 
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Department of Physics, National 
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of Institution of Electrical Engineers 
London. You may contact Dr. Ong at the 
Physics Department, National University 
of Singapore, Kent Ridge, Singapore, 051L 
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201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 

THE TASK* MASTERS 

HDE supports the *T1M, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art 4V2" x 6V2", with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNIDISK 65/8 and 65/5 

Single and dual drive 8" and SV*" disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS(File Oriented DiskSystem). 



HDE DISK BASIC 

A full range disk BASIC for KIM based systems. 
Includes PRINT USING, IF . . . THEN . . . ELSE. 
Sequential and random file access and much 
more. $175.00 



DM816-M8A 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM, SYM, KIM 
versions. $95.00 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 ($80.00 cassette) 



DM81 6-P8 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted in a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 

AVAILABLE DIRECT OR 



HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142.50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM, KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 
(CMT) 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 ($68.50 
cassette) 

FROM THESE FINE DEALERS: 



Progressive Computer Software 
405 Corbin Road 
York, PA 1 7403 
(717)845-4954 



Johnson computers 

Box 523 

Medina, Ohio 44256 

(216)725-4560 



Lux Associates 
20Sunland Drive 
Chico, CA 95926 

(916)343-5033 



Faik-Baker Associates 

382 Franklin Avenue 

Nutley, NJ07110 

(201)661-2430 

Laboratory Microcomputer Consultants 

P.O. Box 84 

East Amherst, NY 14051 

(716)689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY 11764 

(516)744-6462 



Signed Binary Multiplication 

is Unsigned 



by Timothy Stryker 



Two's complement notation has 
surprises in store for those 
writing integer multiplication 
routines. A little mathematical 
analysis shows why. 

Multiplication Routine 

requires: 

6502 computer 

Most programmers writing a signed- 
integer multiplication routine in 
assembly language would write it in 
what they consider the most straight- 
forward manner. That is, they would 
find the absolute values of the multipli- 
cand and the multiplier, multiply them 
together, and then adjust the sign of the 
product based on whether the signs of 
the original multiplicand and multipler 
were or were not the same. 

It is a little-known fact of binary life 
that this method is not necessary in 
certain circumstances. In particular, if 
you plan to make the number of bits of 
precision in the product equal to the 
number of bits of precision in the input 
factors, then the nature of two's com- 
plement arithmetic causes the sign 
computations to come out right with- 
out any need for explicit sign handling 
on your part. Under these conditions, 
there is no difference between a signed 
and an unsigned integer multiplication 
routine. This applies whether you use a 
shift-and-add algorithm. Booth's algo- 
rithm, or any other basic multiplica- 
tion algorithm. 

Most programmers will snort in 
derision at such a proposition — it 
seems to run counter to all logic. The 
idea that, in the case of 16-bit numbers 
for example, multiplying a number by 
2 and then inverting it should give the 
same result as multiplying it by 65534, 
ignoring all but the low-order 16 bits of 
the product, seems ludicrous. Never- 
theless, that is the case. This article 
discusses why. 



Remember that when you encode a 
negative integer in two's complement 
notation, you are actually using the 
sum of that number with 2 to the 
power of the number of bits in your 
word. In mathematical terms, you are 
encoding - n as 

2™ + (-n) 

where m is the number of bits in the 
word. When you add a pair of two's 
complement numbers together, the 
reason that you don't have to special- 
case their signs is that you ignore all 



but the low-order m bits of the sum. 
Since any 2™ terms in the sum con- 
tribute only to bit positions above the 
m-th, these low-order m bits give you 
the right result. For example, adding 5 
to - 3 gives you 

5 + 2"^ -3 = 2"^-f5-3 = 2'" + 2 



the low-order m bits of which represent 
a 2. Adding - 6 to - 4 gives you 



2m _ 6 

2*2"^- 



+ 2' 
10 



1-4 = 2*2"i-6-4 = 



Listing 1 
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ASSEMBLY SOHRCE 








* 
* 


MULT 














* 


EXPECTS TO BE CALLED WITH TWO 16-BIT FACTORS 








* 


ON THE STACK: MULT 


REPLACES THEM WITH THEIR 








* 


16 -BIT PRODUCT AND 


RETURNS. THE FACTORS AND 








* 


THEIR PRODUCT MAY 


BE THOUGHT OF AS EITHER 








* 


SIGNED OR UNSIGNED 


, IT MAKES NO DIFFERENCE. 








* 


MULT 


IS RELOCATABLE AND USES NO SCRATCHPAD 








* 

It 


MEMORY, ZERO-PAGE 


OR OTHERWISE. 








* 


BY T 


. STRYKER 4/82 


(WITH THANX AND A TIP OF 








* 


THE 


HAT TO C. GUILMAHTIN AND K. WASSERMAN) 


A9 


00 




MULT 


LDA 


to 


INITIALIZE PRODUCT TO 


48 










FHA 






48 










PHA 






BA 










TSX 




SET UP FOR STACK INDEXING 


AO 


10 








LDY 


fl6 


DO SHIFT-AND-ADD 16 TIMES 


5E 


08 


01 


MLOOP 


LSR 


$108, X 


SHIFT FIRST FACTOR RIGHT 


7E 


07 


01 






ROR 


$107, X 




90 


13 








BCC 


SHIFT 


BRANCH IF ZERO SHIFTED OUT 


18 










CLC 




ADD LEFT-SHIFTED SECOND 


BD 


01 


01 






LDA 


$101, X 


FACTOR TO PRODUCT 


7D 


05 


01 






ADC 


$105,X 




9D 


01 


01 






STA 


$101, X 




BD 


02 


01 






LDA 


$102, X 




7D 


06 


01 






ADC 


$106, X 




9X3 


02 


01 






STA 


$102, X 




IE 


05 


01 


SHIFT 


ASL 


$105, X 


SHIFT SECOND FACTOR LEFT 


3E 


06 


01 






ROL 


$106, X 
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DEY 




DONE YET? 


DO 


DC 








BNE 


MLOOP 


BRANCH BACK IF MORE TO DO 


68 










PLA 




REPLACE FIRST FACTOR 


9D 


07 


01 






STA 


$107, X 


WITH PRODUCT 


68 
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9D 


08 


01 






STA 


$108, X 
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PLA 




REPLACE SECOND FACTOR 


9D 


05 


01 






STA 


$105, X 


WITH RETURN ADDRESS 


68 










PLA 






9D 


06 


01 






STA 


$106, X 




60 










RTS 




AND RETURN 
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the low-order m bits of which are equal 
to simply 2™- 10, namely, - 10. 

Now consider what happens when 
you multiply. The case in which both 
factors are positive need not be con- 
sidered. The case in which one factor, f, 
is positive and the other, -g, negative, 
gives you 

f * (2^-g) = f*2"^ - f*g 

which, ignoring bit positions above the 
m-th, is none other than -(f»gj. 
Similarly, the case in which both fac- 
tors, - f and - g, are negative, gives you 



MICRObits 



(2m_f) * (2" 

+ f*g 



-g) = 2"^*(2"i-f-g) 



which, ignoring a rather large amount 
of gibberish above the m-th bit posi- 
tion, is simply f»g, as expected. 

Listing 1 shows a relocatable 16-bit 
signed/unsigned integer multiplication 
routine for the 6502 that takes its 
arguments from the stack, pops them, 
and returns their product on the stack. 
It could be written more efficiently, of 
course — I have written it this way to 
make it completely machine-indepen- 
dent. Remember, though, that this ap- 
proach does have definite limitations: 
in general, the multiplication of one 
16-bit integer by another will yield a 
32-bit product. Thus, a routine like the 
one shown is only applicable in cases 
where the product is known to fit in 1 6 
bits (languages like RPL and FORTH, 
for example, typically make this 
assumption) . 

The approach given here could be 
economically applied in a fully general 
signed multiplication procedure on a 
processor possessing a hardware sign- 
extend operation. It would then be 
necessary only to sign-extend each 
16-bit input factor to 32 bits before 
doing the multiply, yielding a fully 
general 32-bit result. Unfortunately, 
this finding does not apply to signed 
division. At any rate, whether useful to 
you or not, the above is certainly a sur- 
prising and illuminating result. There 
is more elegance and consistency lurk- 
ing within the concept of two's comple- 
ment notation than most of us realize. 



Timothy Stryker may be contacted at 
Samurai Software, P.O. Box 2902, 
Pompano Beach, FL 33062. 



Deadline for MICRObits: 20th of second month before publication; i.e., 
January 20th for March issue. Send typewritten copy (40-word limit) 
with $25.00 per insertion. (Subscribers: first ad at $10.00.) 



6800/6809 Software 

Includes compatible single-user, 
multi-user and network-operating 
systems, compilers, accouncmg and 
word processing packages Free 
catalog 

Software Dynamics 

21 1 1 W. Crescent, Sta G 

Anaheim, CA 92801 



Lessons in Algebra 

An easy and fun way to learn tfae 
basic elements of high school algebra. 
Apple computer diskette $29.95. 
.30-day money-back guarantee i£ not 
sjtisticd 

George Earl 

1302 So. General McMulkn Dr. 

San Antonio, TX 782,57 



Dynamite PET/CBIVI Accessories! 

Write-protect switches/indicatOTs foi 
2040/ 4040 disk drives Real world 
software at low cost. 2114 RAM 
adapter {replaces obsolete 6550's) and 
4K memory expansion for "old" 8K 
Pbl's. Hundreds of satisfied 
customers. Write for free catalog! 

Optimized Daxi. Systems 

Uept. M, Box 595 

Placentia, CA 92670 



Apple II Data Converter 

Includes: 1. 6522 VIA board, 2. 
external ADC/DAC module- 
ADC-17,000 samples/s, 0.1niV-9V 
AC/DC; DAC -33,000 pomts/s, 
0-2 56V, amplifier, speaker, and 3. 
software on disk. $149.00 kit; 
S199 00 assembled and tested. 

NALAN Computer Srecialcies 

Dept. M 

106 Highland Park Lane 

Boone, NC 28607 



OSI 65D V3.3 Guide 

Contains fixes and other data OSI 
diiln't tell you about. Increase 
compatibility between 65DV3.X and 
V3.3. Rim extended utilities under 
W:^.?, and more. $14.95. New York 
residents add 7% sales tax. 

Buffalo Informational Technologies 

209 Richmond Avenue 

Buffalo, NY 14222 



Software 

For OSI CIP, C4P, and Commodore 
PET cassette-based systems We have 
games and excellent graphics utilities 
We are also looking for software for 
these systems. We pay excellent 
royalties. For a free catalog or more 
information, write to: 

B.C Software 

5152 Marcella Ave. 

Cypress, CA 90630 



Free Software 

Join the Big Red Apple Cbib, a 
national Apple users' group with 
benefits including monthly newsletter 
and large library ot tree software 
Annual membership S12.00 Sample 
newsletter $1.00. 

Big Red Apple Club 

1301 N. 19th 

Norfolk, NE 68701 

(4021 379-3531 



Target-an AIM 65 Newsletter 

Need information for your AIM 65 
computer? News, software, and 
hardware are examples ot items 
covered in the newsletter. Yearly 
subscription rates are $7.00 in the US 
and Canada, $12.00 elsewhere. Back 
issues are available beginning with 
1979 at the same per year rate. 

Target 

c/o Donald Clem 

RR#2 

Spencerville, OH 45887 



Double Precision Pascal 

TeraComp — A scientific 
mathematics library for Apple Pascal. 
Gives the Apple mainfaramc accuracy 
with 64-bit double-precision 
mathematics. Package includes 
matrix operations including inverse, 
double-precision trigonometric 
fimctions, and dynamic array 
allocation. $95 00 from- 

PicoTera Systems 

P.O. Box 1631 

Corvallis, OR 97339 

(503) 754-0237 
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APPLE Math Editor 



by Robert D. Walker 



This Apple Pascal program 
allows for easy construction, 
editing, and printing of 
mathematical formulas. 

Math Editor 

requires: 

Apple II with Pascal 
(optional: Dot-matrix printer 
such as Epson IV1X-80) 

Anyone who has used a text editor for 
writing technical papers has en- 
countered the problem of entering 
mathematical formulas into their text. 
If the formula is simple it may be typed 
into the text using the ASCII character 
set. More commonly, however, I find 
myself having to leave a blank area 
within the text and later writing the 
formula in with pencil. If you want a 
professional appearance this method is 
unacceptable. The following program, 
written in Apple Pascal, will solve this 
problem. 

Although there is only one program 
here that does the formula editing, 
there are seven files used throughout 
this article. For this reason I recom- 
mend initializing a new disk, using 
"APPLE3: FORMATTER". Once this 
is done, change the volume name of 
this new disk from "BLANK;" to 
"MATH:" to make it easier to follow 
the article. It will also make the file 
names compatible with those included 
in the program listings. 

Creating the Math Character Set 

The math character set includes a 
special cursor used by the Math Editor, 
the Greek alphabet, math symbols not 
included in the ASCII character set, and 
small digits used for subscripting and 
superscripting. In addition, there is 
room for two user-definable characters. 
These images (81 total] are stored in 
the textfile "MATH: MATHSET. 
TEXT" (see listing 1). This textfile will 
be used to create the datafile "MATH: 



MATHSET. DATA", which contains 
these same images in a form readable 
by the Math Editor. (Ed. Note: Listing 1 
has three full-size samples. Figure 1 has 
a dot matrix reduction of the 
characters. They should all be entered 
in "X" format.) 

A few special rules must be follow- 
ed when entering these images into the 
textfile. First, each image is an eight by 
eight dot matrix. Accordingly, each 
image occupies exactly eight lines of 
text, with each line having at least 
eight characters. Extra characters on 
each line are ignored and may be used 
for documentation. Second, the upper- 
case character "X" will show up as a 
white dot on the screen. All other 
characters will show up as black. 
Third, the first image of this textfile 
must be the special cursor. Fourth, 
there cannot be a linespace between 
images. Last, there must be 81 images 
(648 lines] in this textfile. Additional 
lines will be ignored. 

Creating the math character datafile 
requires a small utility program [see 
listing 2, MATH: MATHCREATE. 
TEXT) . This program should be entered 
and compiled. When executed, this 
program (MATH; MATHCREATE. 
CODE) will read "MATH: MATHSET. 
TEXT" and create "MATH: 
MATHSET. DATA". 



The major advantage of this storage 
method is that the textfile "MATH: 
MATHSET. TEXT" can easily be 
edited to suit the user's needs. Once 
this is done the datafile can be created 
by simply executing "MATH; MATH- 
CREATE. CODE". 

If you have followed all the steps up 
to this point then the following files 
should exist: 

1. MATH: MATHSET. TEXT 

2. MATH:MATHSET.DATA 

3. MATH :CREATEMATH. TEXT 

4. MATH :CREATEMATH. CODE 



Math Editor — Program Operation 

The Math Editor program uses the 
TURTLEGRAPHICS library unit to 
display the formulas and messages on 
the high-resolution screen. The math 
formula is displayed on the upper half 
of the screen, while all messages are 
displayed on the lower half. 

The program is entirely menu- 
driven and calls on nine main pro- 
cedures. Once a procedure is called, 
simply hitting the return key will 
return the program to the main menu. 

The "A[SCn" command is used for 
putting text on the display. From the 
main program this procedure is called 
by typing "A". The user will then be 
prompted to enter the string. This 



'^.^ + ^ + y =■ sir. <>0 ; y '' <B>=B; y <©> =0; 

y = 4=.e si n -^ x -f © c os -r=r- :=■=: — c os •:. x > 

SAMPLE PRINTOUT FROM MmTH EDITOR j 


'-■•■:. 


A B .C .D .E .F .G .H . I .J .K .L .M .N .O P .Q .R .S , T . 


1 


ft 


B 


V 


^ 


E 


2 


H 


6 


I 


K 


A 


M 


N 


rsT 


O 


n 


P 


e: 


T 


Y 


2 


^ 


X 


'l- 


Q 


c< 


& 


•y 


S 


■e 


•i; 


n 





t 


K 


>• 


^^ 


^.^ 


^ 


o 


TT 


3 


P 


or 


•f- 


XJ 


* 


::< 


•f 


o> 


X 


-!- 


T 


;^ 


-A." 

*^-- 


5S- 


-•$ 


— * 


f 


s 


N 


.' 


4 


r 


L 


1 


J 


a 


r 


J 


«• 


o 


1 


■z 


3 


A 


s 


«. 




s 


9 







Eri-ber- ■m-s.'t-h c hanac t-er- < e:K . If^ > : 



78 



MICRO - The 6502/6809 Journal 



No. 56 -January 1983 



Listing 1: MATHSET.TEXT (Partial) 

(0) CURSOR 



. . .X. . . 

XX. . . XX 

. . -X. . . 
. . .X. . . 

. .XX. . . 
.X. .X. . 
X X. 

xxxxxx. 

X X. 

X X. 

X X. 

XXXXX. . 
.X. . .X. 
.X. . .X. 

.xxxx. . 

. X. . .X. 
.X. . .X. 
XXXXX. . 



( 1 ) ALPHA 



(2) BETA 



should be ended with a return 
character. The string will then be 
drawn in the lower left comer of the 
formula display area. Next, the moving 
menu will be displayed. The user will 
then use the keyboard for moving the 
string on the display. 

The moving menu consists of six 
commands. "U)p", "D(own", 



"L(eft", and "R(ight" move the string 
on the display. When these commands 
are first encountered they move the str- 
ing ten dots on each keypress. The 
"S(mall movement" command is for 
small movement of the string. This 
command causes the string to be mov- 
ed only one dot per keypress. Once the 
string is in the desired position, it is 
frozen by using the "F(reeze" com- 
mand. This causes program control to 
return to the main menu. 

The "M(athset" command is used to 
draw math characters on the display. 
When this command is invoked it 
displays the entire math character set 
in a table (see figure 1). The user selects 
the character by entering the row 
number followed by the column letter. 
Once this is done, the character will be 
displayed and moved as explained 
above. 

Some characters, such as paren- 
theses, brackets, and the integral sign 
must be drawn at different sizes. These 
characters are drawn as two halves. 
The "D(ots" command (described 
below) is then used to draw the midsec- 
tion of these split characters. 

The "D(ots" command allows the 
user to put dots on the screen. The user 



first moves the cursor to the position 
where the first dot will be drawn and 
then freezes its position. The moving 
command is then used to determine 
where the next dot will be drawn. The 
"E(rase" command erases the last dot 
drawn. To exit this procedure simply 
hit the return key. 

If a mistake is made while drawing a 
formula, then the "E(dit" command 
can be used to erase the most recently 
drawn character. For example, if the 
last operation was drawing a string on 
the display, then only the last character 
of the string will be erased. Likewise, if 
the last operation was drawing dots, 
then only the last dot drawn will be 
erased. 

There are two commands used for 
loading and saving formulas on a 
"Math:" disk. First the "L(oad" com- 
mand will clear the current display and 
load a previously stored formula. The 
"S(ave" command is used for saving 
the displayed formula. Both of these 
commands are written to avoid pro- 
gram interruption due to a disk I/O 
error. 

Once a formula is constructed, the 
"P(rint" command is used to print a 
hardcopy of the display. The procedure 



OSI Disk Users 



Double your disk storage capacity 
Without adding disl( drives 

Now you can more than double your usable floppy disk 
storage capacity — for a fraction of the cost of additional 
disk drives. Modular Systems' DiskDoubler™ is adouble- 
density adapter that doubles the storage capacity of 
each disk track. The DiskDoubler plugs directly into an 
OSI disk interface board. No changes to hardware or 
software are reqmred. 

The DiskDoubler increases total disk space under OS- 
65XJ to 550K; under OS-65D to 473K for 8-inch floppies, 
to 163K for mini-floppies. With the DiskDoubler, each 
drive does the work of two. You can have more and 
larger programs, related files, and disk utilities on 
the same disk — for easier operation without constant 
disk changes. 

Your OSI system is an investment in computing power. 
Get the full value from the disk hardware and software 
that you already own. Just write to us, and we'll send you 
the full story on the DiskDoubler, along with the rest 
of our growing family of products for OSI disk systems. 

™DiskDoubler is a trademark of Modiilar Systems. 

Post Office Box 16 C 
Oradell, NJ 07649.0016 
Telephone 201 262.0093 



Modular Systems 



B Dysan 

^CORPORATION 



better from inside out 




at the lowest price! 



Call our Wlodem Hotline (anytime) - 619-268-448« 
for exclusive monthly specials. Our free catalog 
contains more than 600 fantastic values. 

ABC Data Products 



8868 CLAIREMONT MESA BLVD. 
SAN DIEGO. CALIFORNIA 92123 

ORDERSONLY ITTTELEX INFORMATION 
800-850-1555 4992217 619-268-3537 
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"PRINT" was specifically written for 
the Epson MX-80 equipped with 
Graftrax. This procedure takes about 
100 seconds to print the formula 
display area of the screen. 

The "C(lear" command is used to 
erase the current formula from the 
screen. This allows the user to start 
from scratch. 

The "Q(uit" command simply 
verifies that the user wants to quit the 
program. 

Conclusions 

This program has the capacity for 
future expansion. For instance, an am- 
bitious programmer might include a 
procedure for drawing variable size 
symbols such as parentheses and 
brackets. In addition, you might want 
to rewrite the editing procedure so that 
characters could be erased in any order . 
Both of these modifications increase 
the size of the program dramatically. 



You may contact the author at 2850 Delk 
Rd., Apt. 2B, Marietta, GA 30067 



Listing 2; MATHCREATE.TEXT 

(»JL PRINTER: ») 

(»»««»»»»»«»♦»»«««»»»»»»«»«»«»«»««««♦»»»»»*«»»»»»»»»»»«»»»»»»*»»»♦»»»»««»«»»»««««»»»»«»««»»»«) 
(»» »») 

(«» This program creates the MATHSET. DATA file from the »») 

(»« MATHSET. TEXT file. MATHSET. DATA file Is used by HATH EDITOR. »») 

(»« »♦) 

(*»»****#**#»**»*#*#**#****»*»*********#*»*»»*»***#*»»*«*»**#***»**«*»*»**»»*#«*»»»*»»***»»»*) 

PROGRAM CffiATEKATHSEIDATAFILE; 

TYPE CHARARRAY^PACKED ARRAYt0..80,0..7,0..7] OF BOOLEAJI; 

VAR CHTEXT: TEXT; 

CHAERAY: CHARARRAY; 
CHDATA: FILE OF CHARARRAY; 
S: STRING; 
I, ROW, COLUMN: INTEGER; 

BEGIN 
RESET(CHTEXT, ' MATH: MATHSET. TEXT' ) ; 
REWHITE(CHDATA, ' MATH: MATHSET. DATA ' ) ; 
FOR I : =0 TO 80 DO (« read 81 Image ») 
BEGIN 
WRITE(CHR(12)); (» clear screen «) 
FOR ROW: =7 DOWJflO DO (» Invert Image ») 
BEGIN 
READLN(CMTEXT,S); 
URITELN(S); (» echo Image «) 

(* put Image Into character array *) 

'* 'X' is true, all other characters are false ») 

FOR COHJMN:=0 TO 7 DO CKARRAY[ I, ROW, COLUMN] : = (S[C0LUHN+1] = 'X' ) 

END 
END; 
CHDATA ^CHARRAY; 
PUT (CHDATA); 
CLOSE(CHDATA,LOCK) 
END. 



(Listing 3 begins on page 8ij 




Color Power. 

ColorZAF uses the power 

of the Color Computer to pro- 

both rapid scanning and 

screen rrxxJification capabilities. 

Recover killed and clobbered files. 
• Find unreadable disk sectors. 
' Modify nibbles in hexadecimal. 
• Copy sectors to same or different drive. 
' Use color power to scan disk data. 

Here's what the reviewers said... 

About the program: "ColorZAP is a powerfui program 
that allows you to see what is on the disk, modify it and, if 
possible, recreate it. Menu-driven, ColorZAP is extremely 
easy to use and well-documented.,. A good offering." — 
The RAINBOW, September 1982 

About the manual: "A 24-page manual is included that 
describes program of)eration in detail. It also provides 
valuable information on the important disk system pa- 
rameters." - MICRO, December 1982 

For the TRS-80 Color Computer. Available on disk with an accom- 
panying manual from Software Options, 19 Recta Sfreet, New 
York, NY, 10006, 212-78&-8285. Toll-free order line: 800-221-1624. 

Price; S49,95 (plus $2,00 per order shipping and 
handling). New York Sfate residents add sales 
fax, Visa/Mastercard accepted. 



SOFTWARE 



OPTIONS INC 



APPLE II PERIPHERAL DEVELOPERS 



Your complex function prototype requires 
the best wirewrap board available. 

SPECTRUM SYSTEMS 



Fully Extended Wirewrap Protoboard. 

Size: 2.8 by 10.7 inch 2 layer PC. 
Capacity: up lo 58-16 pin or 12-40 pin 

or any combination socicets inbetween. 

Careluiiy designed -1-5 and GND planes prouide lor 
the minimum electrical noise, low impedance, hi 
capacitance, and maximum versatility In the layout 
ol IC's, capacitors, discretes and I/O connectors 

Wire-wrap technique documentation included. 

Terns: 

• S45.00-I- (6% Cat. Res. tail -i-$2.oaS&H. 

• All payments must be in U.S. lunds drawn on a U.S. 
bank. 

• Outside U.S. add 10%. 

• Cashier check/money order allow 30 day ARO. 

• Personal checks add 2 weeks, 

• No credit cards or cash. Please! 

Spectrum Systems 

RO. Box 2262 

Santa Barbara, Ca. 93120 

Appl« II is 1 trademark of Apple Campuieri. 
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Using Long Integers for 
BCD Numbers in Pascal 



by David C. Oshel 



This article presents a bullet- 
proof string conversion for 
Pascal 1.1 long integers with 
implied decimal points. 



BCDNUMS Demo 

requires: 

Pascal 

English is an unimplemented program- 
ming language because it has no com- 
piler,- in some respects, Pascal belongs 
in the same category. While Pascal is a 
strong "top-down" programming lan- 
guage, some of its versions are particu- 
larly weak as "top-to-bottom" practi- 
cal tools. Unlike extremely practical 
languages like FORTRAN and COBOL, 
Pascal has left a number of design deci- 
sions undecided, perhaps because few 
people have found uses for Pascal when 
other languages are available. 

In the microcomputer field, how- 
ever, Pascal's strengths outweigh some 
of its weaknesses, and it is virtually the 
only choice when program reliability 
and size are significant design criteria 
(with the possible exceptions of 
FORTH and Microsoft FORTRAN.) 
There is no question that Pascal is in- 
fluential; the recent appearance of 
structured FORTRAN, or "FOR- 
TRAN 7 7," is sufficient proof that con- 
cepts embodied in Pascal are worth 
learning well. 

Pascal's worst failing is its inability 
to read numerical data efficiently. This 
article presents one method for inter- 
preting Long Integers as accurate bed 
numbers with decimal points. The dif- 
ference between a Long Integer and a 
bed number is usually that the bed 
number has an implied decimal point; 
the Long Integer (its internal structure 
is not as interesting as its uses), can be 
interpreted several ways. 



Long Integers can be used to repre- 
sent dollar-and-cents amounts. All 
dollar amounts are represented as mul- 
tiples of 100 cents, and the decimal 
point is understood to be two places in 
from the right. If you are working with 
millage rates or titrations, then you 
may understand the decimal point to be 
three, fotir, or five places in from the 
right, provided the bed number is prop- 
erly normalized. By using bed num- 
bers, complemented with appropriate 
special algorithms for multiplication 
and division, you may avoid the round- 
ing errors that are sometimes the bane 
of ordinary floating-point variables. 
The price you pay is twofold: first, bed 
numbers have a large overhead in terms 
of memory and disk space. Second, the 
Pascal interface to bed numbers is an 
exponential function of aggravation. 

Two procedures are outlined in this 
article. The first, a function called 
BCDVAL, scans an input string, con- 
verts it to a bed number, and returns 
the boolean value TRUE if conversion 
was successful. The second procedure, 
called STRBCD, provides the inverse 
utility by converting a bed number to 
an ASCII string. You may also select 
whether to affix the minus sign ahead 
of or behind the number, consistent 
with business practice. 

The normalization constant "Right- 
size" is actually a variable, as used 
here. It is global to both BCDVAL and 
STRBCD. Note one subtle point: all 
bed numbers entered with a particular 
Rightsize are actually typed variables, 
but the Pascal operating system will 
have no inkling of the fact because all it 
sees are Long Integers. If you wish to 
inform Pascal that you are working 
with typed variables, you should de- 
clare a Record type, which maintains 
the bed variable and its associated 
implied decimal point together. If 
program logic allows, you may still 



avoid the Record type (and attendant 
overhead) by normalizing short num- 
bers "on the fly" to the longest re- 
quired Rightsize before you attempt 
arithmetic on the variables. In most ap- 
plications, neither maneuver will be 
necessary because most applications do 
not mix types. If you select Rightsize = 
2, then you are working with dollars 
and cents. 

The BCDVAL function protects 
itself from abnormal input and is safe 
to use with READLN. In other words, 
your program will not crash if BCDVAL 
encounters non-numeric characters, 
duplicate decimal points, etc. If the in- 
put is likely to cause a Long Integer 
range error, which can have dangerously 
unpredictable side-effects on the oper- 
ating system, then BCDVAL takes its 
normal error exit and returns FALSE, 
along with the formal parameter 
BCD=0. In the interest of program 
brevity there is no indication of what 
actually caused the error. 

There is also a possibility that some 
valid inputs will take the overflow exit; 
this occurs when the length of the in- 
put, plus the variable Rightsize, ex- 
ceeds the Long Integer parameter Max- 
lint (i.e., TYPE Lint = Integer [Max- 
lint].) You may avoid the problem 
either by declaring a larger Maxlint 
(and then re-compiling), or by writing a 
more intelligent overflow trap. The 
trap provided is conservative, and will 
correctly flag all overflow errors, plus a 
few of the almost cases. In Apple 
Pascal, Maxlint may range as high as 
36; refer to the Pascal Language Refer- 
ence Manual for details. 



David Oshel works as a consultant 
designing small information management 
systems for Democratic political 
candidates. You may contact him at 1219 
Harding Ave., Ames, lA 50010. 
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March 17, 1982 } 

{ Occupies 1? bytes } 

{ Concatenation constants } 



{ Decimal point char In Bcdnums } 



Listing 1: BCDNUMS Demo 

PrograJB Bcdnums-Demo; 

f * Demonstrating the use of Apple Pascal 1.1 Long Integers as 

* Blnary-coded-declmal numbers with Implied decimal points. 
* 

* David C. Oshel 

* 1219 Harding Ave. 

* AJies, Iowa 5W1? 
CONST Maxllnt = 16; 

NULL = " ; 
SPACE = ' ' 
ZERO = '!3' 
RADIX = ' . ' 
MINUSIGN = '-'; 
TYPE Charset = Set of Char; 

Bodnum = Integer[Maxllnt]; { BGDVAL normalizes these to Rlghtslze } 
VAK Rlghtslze: Integer; { Number of dec places In Bcdnums; default = 2 } 
( Demo program variables follow } 
P,Q : Bodnum; 
S : String; 
Loop ; Integer; 
Num,Minusloc : Boolean; 
Function BCDVAL(VAR Numstr:String; VAR Bcd:Bcdnura):Boolean; 
{ All BCDVAL's are normalized; e.g.. Dollar values {t9,W are 
represented internally as multiples of 100cent3. Normalization 
is then a simple function of Rightsize, as is radix insertion... 
The default is Rights lze=2, for Dollars-and-cents ; note that input 
range errors when working with Long Integers cause a fatal SYSTEM 
crash. . . ! } 
VAR I,J,K,Len : Integer; 

Got-radix, Minus : Boolean; 
Numeric : Charset; 
Temp : String; 
Tl : Strlng[l]; 
Procedure Valerr; {Overflow, or near enough to...} 
Begin 

Write(ohr(7)); 

Exlt(Bcdval) [Conditions on Exit: Bcdval=False, Bcd=0} 
End; { Valerr ) 
Procedure Triincate; 
Begin 

{ Truncate extra digits right of radix... } 
J := Pos{Radix,Temp); 
If J <> then 
Begin 

If (Length(Temp) - J + 1) > Rightsize then 
Temp : =Copy (Temp , 1 , J+Rlghtslze ) 
End 
End; { Truncate } 
Procedure Goodstrlng; 
{ Shift all chars that belong in legal Bed numbers 

Into a temporary string accumulator i chop the remainder.. } 
VAR Oltset : Charset; 
Begin ( Goodstrlng } 

Okset := Numeric + ['+','-', Radix]; { Ignore $, commas, etc. } 
For I ;= 1 to Len do 
Begin 

If Nurastr[I] in Okset then 
Begin 

If Numstr[I] in ['+','-'] then 
Begin 

Okset := Okset - ['+', '-']; 
If Numstr[I] = '-' then Minus := True 
End 
Else If Numstr[I] in Numeric + [Radix] then 
Begin 

If Numstr[I] = Radix then Okset := Okset - [Radix]; 
Tl[l] := Numstr[I]; 
Temp ;=■ Concat(Temp,Tl) 
End 
End 
End 
End; { Goodstrlng } 
Procedure Normalize; 
Begin 

While J < Rightsize do 
Begin 

Bed := Bed xip; 
J := J + 1 
End 
End; { Normalize } 
Begin { Bcdval } 
BCDVAL := False; 
Numeric := ['0' 
Tl := SPACE; 
Temp := NULL; 



'9']; 



BCDNUMS Demo (conUnued) 

Bcd:=P; Len := Length(Num9tr) ; Minus r= False; Oot-radlx := False; 
If Len = 9 then Exit(Bcdval); 

If (Rightsize < 0) or (Rightsize > Maxllnt) then Rightsize : =(3; 
Goodstrlng; { Zap spaces, $$, commas, any extra garbage } 
If Length(Temp)+Rlghtslze >= Maxllnt then Valerr; 
Truncate; { Drop extra digits on the right } 
Len := Length(Temp); { New length... } 

If (Len - 0) or (Temp = Radix) then Exlt(BCDVAL) ; { Non-numeric Input } 
J := P; 

For I := 1 to Len do 
Begin 

If Temp[I] = Radix then Cot-radix := True 
Else If Temp[I] In Numeric then 
Begin 
Bed := (Bcdxip) + (Ord(Temp[I] ) -Ord('j3')); 
If Got-radix then J:=J+1 { Count decimal places } 
End 
End; 
Normalize; 

If Minus then Bod := -Bed; 
BCDVAL := True 
End; { Bodval } 
Procedure STRBCD(VAR S:String; Bcd:Bcdnum; Sufflxsign: Boolean); 

{ Do the opposite of BCDVAL, i.e., convert a bcdnum to an ASCII string; 
If Sufflxsign is True, then affix the Minus Sign, if required, to 
the end of the string, as in 1^(3. 0P-} 
VAH I : Integer; 
Stemp : String; 
Sflx : String [1]; 
Procedure Padleft; 
Begin 

Stemp "NULL; 

For I :- Length(S) to Rightsize do Stemp:=Con(!at(Stemp,ZERO) ; 
S:=Conoat (Stemp, S) 
End; 
Begin 

If (Rightsize > Maxllnt) or (Rightsize < (3) then 

Rightsize: =? 
Sflx := SPACE; 
Str(Bed,S); 
If Bed < p then 
Begin 

Delete(S,l,l); { Drop minus sign } 
Sfix r= MINUSIGN 
End; 
If Length(S) < = Rightsize then Padleft; { Do ?.ZZZZN Format } 
Insert (Had ix,S,Length(S)-Rlghtslze+l); 

If Sufflxsign then S:«Concat(S,Sflx) else S:=Conoat(Sf lx,S) 
End; { Strbed } 
BEGIN { Main } 

Rightsize := 2; { Must be declared in Initialization part of a Unit ] 
{ DEMO CODE } 
Page (Output); 

Wrlteln( 'Demonstration of BCD numbers in Pascal'); 
For Loop := to 5 do 
Begin 

Rightsize := Loop; { Range errors are checked by Bcdval } 
Mlnusloc := ODD(Loop); { Decide Minus sign loe: True = Suffix } 
Q ;= 0; ( Summation accumulator } 
Repeat 
Write In; 

Wrlte('Input a number[', Rightsize, '] -»] '); 
Readln(S); 
Num := Bcdval(S,P); 
If Num then 
Begin 
Q:=Q+P; 

Strbcd(S,P,l'.inusloo); 
Wrlteln(S:26); 
Wrlteln 
End 
until not Num; 
Strbed(S,Q,Minusloc); 
Wrlteln; Wrlteln ('Sum = ',S:20);Wrlteln 
End; { Loop } 
Wrlteln ; Write ( 'That "s all Folks...') 
END. { Main } 
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NEW FROM D & N MICRO PRODUCTS, INC. 




MICRO-80 COMPUTER 



Z80A CPU with 4MHz clock and CP/M 2.2 
operating system. 64K of low power static 
RAM. Calendar real time clock. Centronics 
type parallel printer Interface. Serial inter- 
face for terminal communications, dip 
switch baud rates of 1 50 to 9600. 4 ' cooling 
fan wit h air intake on back of computer and 
discharge through ventilation in the bot- 
tom. No holes on computer top or side for 
entry of foreign object. Two 8" single or 
double sided floppy disk drives. IBM single 
density 3740 format for 243K of storage on 
each drive. Using double density with 1K 
sectors 608K of storage is available on a 
single sided drive or 1.2 meg on a double 
sided drive. Satin finish extruded 



aluminum with vinyl woodgrain decorative 
finish. 8 slot backplane for expansion. 48 
pin buss is compatible with most OSI 
boards. Uses all standard IBM format CP/M 
software. 

Model80-1200 $2995 

2 3' single sided drives, 1.2 meg of 
storage 
Model 80-2400 $3495 

2 8" double sided drives, 2.4 meg of 

storage 
Option 001 $ 95 

Serial printer port, dip switch baud rate 

settings 



Software available In IBM single density 8" format. 



Microsoft 




Digital Research 


Basic-80 


$289 


PU1-80 


Basic Compiler 


$329 


Mac 


Fortran-80 


$410 


Sid 


Cobol-80 


$574 


Z-SId 


Macro-80 


$175 


C Basic-2 


Edit-80 


$105 


Tex 


MuSimp/MuMath 


$224 


OeSpool 


MuLlsp-80 


$174 


Ashton-Tats 

dBase II 





Micropro 


$459 


Wordstar 


$ 85 


Mall-Merge 


$ 78 


Speilstar 


$ 95 


Su per Sort 1 


$110 


Pascal 


$ 90 


Pascal/MT-i- 


$ 50 


PascalZ 




Pascal M 



$299 
$109 
$175 
$195 

$429 
$349 
$355 



$595 



Convert almost any static memory OSI machine to CP/M® with the D & N-80 CPU Board. 



Z8GA CPU with 4MHz clock. 2716 EPROM 
with monitor and bootstrap loader. RS-232 
serial interface for terminal communica- 
tions or use as a serial printer interface in a 
VIDEO system. Disk controller is an Intel 
8272 chip to provide single or double densi- 
ty disk format. 243K single density or 608K 
double density of disk storage on a single 
sided 8' drive. A double sided drive pro- 
vides 1.2 meg of storage. DMA used with 
disk controller to unload CPU during block 
transfers from the disk drives. Optional 
Centronics type parallel printer port com- 



plete with 10 ft. cable. Optional Real Time 
Calendar Clock may be set or read using 
'CALL' function in high level languages. 
Power requirements are only 5 volts at 1.4 
amps. Aval lable with WORDSTAR for serial 
terminal systems. 

INCLUDES CPM 2.2 

D & N-80 serial $695 

D & N-80 serial w/Wordstar $870 

D & N-80 video $695 

OptionOOl $ 80 

parallel printer and real time 

calendar clock 




D & N-80 CPU BOARD 



OTHER OSI COMPATIBLE HARDWARE 



IO-CA10X Serial Printer Port $125 

Compatible with OS-65U and OS-65D soft- 
ware 

I0-CA9 Parallel Printer Port $1 75 

Centronics standard parallel printer inter- 
face with 10 ft. flat cable 
BP-5808SlotBaci(plane $ 47 

Assembled 8 slot backplane for OSI 48 pin 
buss 

24MEM-CM9 $380 24MEM-CM9F $530 
16MEM-CM9 $300 16MEM-CM9F $450 
8MEM-CM9 $210 8MEM-CM9F $360 
BMEM-CM9F $ 50 FL470 $180 

24K memory/floppy controJIer card sup- 
ports up to 24K of 2114 memory chips and 
an OSI type floppy disk controller. 
Available fully assembled and tested with 
8, 16, or 24K of memory, with floppy con- 
troller (F). Controller supports 2 drives. 
Needs separated clock and data inputs. 
Available Bare (BMEM-CM9F) or controller 
only (FL-470). ideal way to upgrade 
cassette based system 



C1P-EXP Expansion Interface $ 65 

Expansion for CI P 600 or 610 board to the 
OSI 48 pin buss. Requires one slot in 
backplane. Use with BP-580 backplane 
BIO-1 600 Bare 10 card $ 50 

Supports 8K of memory, 2 16 bit parallel 
ports may be used as printer interfaces. 5 
RS-232 serial ports, with manual and Molex 
connectors 

DSKSWDisIc Switch $ 29 

Extends life of drive and media. Shuts off 
minifloppy spindle motor when system Is 
not accessing the drive. Complete KIT and 
manual 

D & N Micro Products, Inc 

3684 N.Wells St. 

Fort Wayne, Ind. 46808 

(219) 485-6414 



TERMS $2.50 shipping, Foreign orders add 1S%. 
Indiana residents add 4% sales tax. 



Disli Drives and Cables 

8 'ShugartSASOl single sided $395 

8 'ShugartSA851 double sided $585 

FLC-66ft.cablefromD&NorOSI $ 69 

controller to 8' disk drive 
5 1/4' MPIB51 with cable, power $450 

supply and cabinet 
FLC-5 1/48 ft. cable for connection $ 75 

to 5 1/4 drive and D & N or OSI 

controller, with data separator and 

disk switch 
Olddata Microilne Printers 
ML82ADotMatrlxPrlnter $534 

120 CPS, 80/120 columns, 9.5 " paper width 
friction orpin feed 

ML 83A Same as 82A except $89< 

16' paper width, 132/232 columns witt 
tractor feed 

ML84Sameas82Aexcept200CPS, $115: 
16" paper width, 132/232 columns, 2K bu1 
fer, dot addressable graphics, with tracto 
feed 
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Short Subjects 



PET BASIC to Waterioo BASIC 
Numerical Rounding 



by Jerry D. Bailey 
by Chuck Muhleman 



PET BASIC to 
Waterloo Basic 

Jerry D. Bailey, 9642 Remer, So El 
Monte, CA, 91733 



As discussed in the October, 1982 PET 
Vet, Waterloo BASIC offers much more 
sophisticated program control struc- 
tures than PET BASIC. Also, PET 
BASIC and Waterloo BASIC have dif- 
ferent ways of implementing certain 
structures and functions. You'll need 
to do light to moderate editing in- 
cluding inserting blanks after key 
words when necessary. 

There are several points you must 
consider when converting PET BASIC 
program files to Waterloo BASIC- 
readable program files: 

1 . The program file must be converted 
to a sequential file. 

2. Line numbers must be forced to five 
characters with leading blanks. 

3. Alphabetic characters must be con- 
verted to lower-case ASCII. 

Use the following line in direct 
mode to convert a program in memory 
to PET ASCn. (Be sure the program does 
not start with line 0, since Waterloo 
BASIC will not accept a line 0.) 

dopen#8, "FILENAME",w:cmd8:list 

When the cursor returns, enter: 

dclose:xx 

This will give a syntax error, but the 
file will be closed and the cursor will 
return properly. Now you can use the 
following program to format the file for 
access by Waterloo BASIC'S OLD 
command. 

Be sure to substitute the appropriate 
names in lines 10 and 30. The two 
GET#8's in line 20 discard the carriage 
returns that CMD puts at the front of 
the file. Line 40 checks for the "r" in 
"ready", which marks the last line in 
the file. All other lines will begin with 
a space. Line 50 converts the alphabetic 
characters to true ASCII lower case. 



Line 60 builds the output string and 
checks for the end-of-line carriage 
return. Line 70 searches for the space 
following the line number. Line 80 
pads the line so that the line number 
always occupies the first five spaces, 
padded with leading blanks, and writes 
the line to the output file. Line 90 goes 
back for the next program line. 

This is not a particularly friendly 
program, in that it simply stops on er- 
rors and requires the file names to be 
written into the program. But it will 
get the job done. After the file is up in 
Waterloo BASIC, it will probably not 
run right away. You'll need to do light 
to moderate editing. 



Numerical Rounding 

Chuck Muhleman, Computer-ease, Box 
806, Marion, IN 46952 



You may calculate numbers properly 
using all possible digits internal to a 
computer or calculator. You should not 
state the answer with all the digits 
shown. The accuracy of any answer is 
only as good as the accuracy of the least 
accurate input to the problem. Thus, 
when the calculation is completed, the 
answer usually must be roimded to show 
the proper accuracy. I say "usually" 
because some calculations give exact 
values: 2.3, or 2.33.3 = 6.99. 

When you do a series of calculations 
involving several formulae, the answer 



should be rounded. For financial prob- 
lems, such as computing an amorti- 
zation table, the answer should be 
rounded to the nearest cent. For in- 
stance, in an amortization computation 
the interest due for a specific month is 
computed, rounded to the nearest cent, 
subtracted from the monthly payment, 
and the balance applied to the prin- 
cipal. After all, you do not normally 
make payments less than $0.01 each, 
and the loan repayment must be larger 
than the interest due or the loan will 
never be repaid. 

Remember that answers do not need 
to involve fractions for rounding to ap- 
ply. For example, when considering the 
populations of cities rounded to the 
nearest 1000, it would be improper to 
give an answer such as 53 162, say, for 
a population average of all the cities 
within a state. The proper answer 
would be 53 000. (Note that numbers 
over four digits on either side of the 
decimal are separated by spaces, not 
commas. This is now preferred in 
deference to the European practice of 
using commas where Americans use 
decimal points.) 

Do not use algorithms which just 
truncate the answer; i.e., drop the un- 
wanted fractional parts. Why use a 
sophisticated computer, then give an 
answer similar to that of an elementary 
school student? 

Another important point to remem- 
ber is when the fractional part is exactly 
equal to 0.5, then the answer should be 
rounded to the nearest even number. 
That is, 3.15 should be roimded to 3.2, 
as should be 3.25. (continued) 



Bailey — Conversion Routine 



1 D0PEN#8 , "TEST " i I FDSTHENPR I NTDS» : STOP 

20 N«=C.HR#<:e> :GET«8,H*!0ET#3,H* 

30 D0PEN#9 , " WHTTEST " , W : I FDSTHEHPR I HTDS* : STOP 

40 B»="" :GET#S,fl*:IFfl*="R"THEHDCLOSE:EHD 

50 GET#3,fl* sPRINTH*; :H=|=ISC<H*+H*) i IFH>64FIHDB01THENfl=fH+32 

60 B*=B*+CHR»<H)!lFH-13GOTO50 

70 F0RI=2T0LEH<B*;):IFMID«';B*,I,n<>" "THEHHEXTI :STOP 

80 PRINT#9,LEFT*<" " ,6-1 >B* ; : IFDSTHENPRIHTDS* JSTOP 

90 OOTO40 
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Short Subjects (continued) 



The common way to round is to 
convert the number to an integer using 
logarithms, round, then find the an- 
tilog to get an answer. This method is 
fine, except the manipulation must be 
different for numbers less than or 
greater than 1. Also, the math algo- 
rithms internal to a computer may give 
some strange answers because they 
manipulate using binary numbers, not 
decimals. 

The accompanying algorithm, in 
BASIC, will round numbers input as 
variable Nl to the number of signifi- 
cant figures input as variable Ml. This 
algorithm also rounds the fraction 0.5 
properly. 

To handle the strange answers 
caused by the binary numbers, string 
functions may be employed when the 
magnitude of the answer is known. 
This is generally true for a given prob- 
lem, such as an amortization table or a 
table of wire resistance. Other useful 
math subroutines and algorithms are 
included in the program listing. 



10 REM "MATH" CSJ Supply 7/5/81 Byte3=3298 

11 REM Remember this system computes to 9 slg. figures 

82 DEF FNDC(X) » INT((X + -Wl) x 1^|2) : 
REM Stop $ RD Error; ' '/l^jS' ' for answer 

83 E? = 2.71282813 

84 DEF FNLG(X) = LOG (X) /LOG (113) :HEH LN to LOG 

85 DEF FNSN(X) = ATN(X /SQR(1-Xf2)) : REM AfiCSIN 

86 DEF FNCS(X) = {PI/2)-FNSN(X) : REM AflCCOS 

87 DEF Flffl(3(X) = (E!3tX-E(3t(-X) )/2 : REM SLNH 

88 DEF FNJ(3(X) = (E0tX+E(3t(-X) )/2 : REM COSH 

90 DEF FNTC(X) = (X-32)x5/9 : HEM Farenhelt to Celsius 

91 DEF FNTF(X) = Xx9/5t32 : REM Cleslus to Farenhelt 

92 PRINT : INPUT "Enter: Number Decimal to RT " ; Nl 

93 DEF FNH(X) = INT(XxiptNl+(3.5)/10tNl 

3800 REM Math Subroutines 

3801 REM Deg, Min, Sec to Radians 

3802 A = D+M/6|2 + S/36(?? 

3803 A . (AxPl/l8!3-2xPIxINT(A/360)) 
3809 RETURN 

3820 REM Radian to Deg, Mln, Sec 

3821 A = 36?0xl80xR/PI : REM Total Sec 

3822 B = INT(A/3600) : REM Total Deg 

3823 C = INT(B/36P) : REM Number Circle 

3824 D = B-360XC : REM Deg 

3825 Z = A-Bx36?0 

3826 M = INT(Z/60) : REM Min 

3827 S = Z-Mx6^ : REM Sec 
3829 RETURN 

3859 REM Significant figures 

3860 IF Nl = ? THEN 3879 

3866 INPUT "Enter Sig Fig "; Ml 

3868 N2 = ABSCni) :M2 . L0G(N2)/L0G(ip) : M3 = INT(M2+1!3(») 

3869 N3 = N2xl|2t(Hl-(M3-99)) : n4 = INT(N3+.5) 
3872 IF N3-INT(N3)<>.5 THEN 3878 

3874 N5 = INT(N3)-INT(N3/l?)xl!3 : IF INT(N5/2) ON5/2 THEN 3877 

3876 n4 = INT(N3) : GOTO 3878 

3877 N4 = INT(N3+1) 

3878 Nl . N4xl(3t((M3-99)-Ml)xSGN(Nl) 

3879 RETURN 
3899 END 
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CSE means OSI 

Software and Hardware 
Specializing in C1P and C4P machines 



Basic Load/SAVE: 
Employs token loader system. 50-100% faster 

than the old indirect ASCII system. Maintains a 

listing of file names found on the tape 

C1P $10.95 

C4P $19.95* 

Basic Enhancer: 

Renumber, Auto Sequencer, Screen Control func- 
tions, and tape I/O system that is faster and has file 
names 

C1P $21.95 

C4P $29.95* 

*comes with required modified monitor Rom chip 



NEW! NEW! NEW! 

ANCHOR SIGNALMAN MODEMS 



. $95.00 



Please write for more info on new disk programs or 
send $2.00 for catalog. Please include $2.00 shipping 
($4.00 for modems). ^_^ 



Computer 

Science 

Engineering 

Box 50 • 291 Huntington Ave. Boston 02115 



iMC90 

is publishing an 
OSI book! 

OSI users will be getting a book 
of their own. Early in 1983, 
MICRO magazine plans to 
publish a strictly OSI volume! 

It will cover a variety of topics— 
BASIC Enhancements, Machine- 
Language Aids, Hardware, I/O 
Enhancements, and a "What's 
Where in the OSI" reference 
guide. 

Look for more details 
in upcoming issues of MICRO 
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HEROES 
mNTEDI 



It takes the stuff of heroes to challenge TharoHa. 
For this gigantic planet is guarded by robotic 
spacef ighters and automatic defenses programmed 
for one purpose: kill. 



Our interstellar expansion will come to a halt 
unless you can blast through the swarms of auto- 
matedships, enter the devilish Tharolian Tunnels 
—elude the traps, and fight your way through 
tunnel after tunnel. 

It will take uncommon dexterity, speed and 
courage to master the tunnels and destroy the 
robotic defense system. Heroes only are wanted, 
the faint hearted need not apply. 

$29.95 for Apple II* joystick/paddles 
At your computer store, or: 

iD/flAMOSli 

9748 Co2vcroftAve.,Chatsworth,CA91311.(213) 709-1202. 



^ISA/MASTERCARD accepted. S200 shipping'har 
(California residents add 67z% sales tax.) 
'^PPle II is a trademark of Apple Computer. Inc 
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CoCo Bits 



By John Steiner 

This month, in addition to news, I 
discuss some of the books available for 
the Color Computer and the 6809. 1 also 
examine how to set up a high-resolu- 
tion graphics display on the CoCo. 

Last month I mentioned rumors of a 
new Color Computer built by Radio 
Shack, available through RCA. The 
machine, TDP System 100, should be 
available from RCA dealers by the time 
you read this. Considering the power of 
the Color Computer, I expect other 
CoCo "clones" will appear soon. 

A unique accessory now available 
from several companies is an expansion 
unit. The unit plugs into the existing 
ROM pack and provides several extra 
expansion slots where drive controller, 
printer card, ROM packs, and other ac- 
cessories can remain connected at all 
times. I look forward to testing one of 
these units for utility and ease of use. I 
will keep you posted. 

By the time you read this, I am sure 
many of you will know of the death of 
Mr. Arnold C. Pouch. A retired IBM 
programmer, Mr. Pouch was one of the 
first to realize the power of Color 
Computer graphics. His Motion Pic- 
ture Programming techniques for CoCo 
set a standard in graphics programs, 
and he created many other excellent 
utilities, including Disk Doctor. His 
company, Superior Graphics Software, 
will continue to operate, according to 
Mrs. Pouch. 

When the snow flies and the early 
winter darkness descends, many people 
settle down with a good book by the 
roaring fire. What better way to spend 
an evening than to read about your 
favorite computer? In the past few 
months, several books have been 
released providing information and pro- 
grams for both CoCo and the 6809. 
Subjects range from general purpose 
programs to high-resolution graphics 
tutorials. 

A good programming book for 
beginners is one of a series written for 
many different home computers: Bob 
Albrecht's TRS-80 Color BASIC, 
published by John Wiley & Sons. Mr. 



Albrecht assumes no previous knowl- 
edge of BASIC, and in an entertaining 
manner teaches much about CoCo. 
The book lacks only a discussion of the 
features of Extended Color BASIC. 

Two excellent books covering 
graphics are TRS-80 Coloi Computei 
Graphics by Don Inman with Dymax 
(Reston Publishing Co.), and Color 
Computer Graphics by William 
Barden, Jr. (Radio Shack). Mr. Inman's 
explanation of graphics operations and 
sound and joystick usage is well writ- 
ten. An entire chapter on machine- 
language USR routines is included. 

Mr. Barden explains the graphics 
commands found in Extended Color 
BASIC, and covers the details of the 
6847 video display generator and the 
CoCo memory map. The appendices 
are a rich source of video display infor- 
mation. For $5.95, Color Computer 
Graphics is the least expensive book 
mentioned here. 

TRS-80 Programs and Applications, 
by Alfred Baker, contains many 
beginner-level programs for the CoCo. 
If you are new to programming, you 
will like the fully documented program 
listings. (This book is not for the in- 
termediate or advanced programmer.) 
One of the first programs in the book is 
a joystick test routine that checks the 
keyboard to see if a joystick fire button 
has been depressed. In ROM 1.0, this is 
acceptable. In ROM 1.1, the keyboard 
is isolated from the joystick port and 
pressing the fire button will have no ef- 
fect on this program. 

For CoCo owners who want to learn 
machine-language programming on the 
Color Computer, there is little to 
choose from. Two new releases may be 
available by the time you read this. 
William Barden, Jr., is writing a book 
for use with EDTASM-i-. It will be 
available from Radio Shack. Don In- 
man, who wrote an excellent book on 
machine language for the Apple, will 
soon have one for the Color Computer. 

Books covering the 6809 processor 
and machine-language programming 
are more plentiful. A good reference 
source, The MC6809 Cookbook by 
Carl D. Warren (TAB Books), is written 



for the experienced programmer up- 
grading to the 6809. 6809 Microcom- 
puter Programming and Interfacing, by 
Andrew Staugard, Jr., (Howard W. 
Sams &. Co.), discusses the 6820 and 
6821 PIAs in addition to the 6809. The 
6821 is used in I/O applications for the 
Color Computer. 

Probably the most detailed discus- 
sion of 6809 programming and applica- 
tions is found in Lance Leventhal's 
6809 Assembly Language Program- 
ming. It is possible to learn machine- 
language programming from the begin- 
ning with this text, but the routines 
will not work unmodified on your 
CoCo assembler unless you can work 
on memory page zero. 

Programming the 6809, by Rodney 
Zaks and William Labiak, covers 
elementary and intermediate program- 
ming techniques. Again, program 
modification may be required for the 
Color Computer. 

This list is by no means complete, 
and discusses only books that I have 
had an opportunity to purchase. If you 
have information concerning other 
CoCo or 6809 reference sources, let me 
know and I will mention them in 
future columns. 

Extended Color BASIC is probably 
one of the easiest graphics extensions 
available. In addition, other useful 
features are available in the ECB ROM. 
Although the ECB manual is easy to 
understand, it leaves some questions 
concerning the proper set-up of 
graphics screens. The simple, step-by- 
step list below should help ensure that 
all options are covered. 

CoCo Gfaphics Screen Initialization 

1. Reserve the correct number of 
graphics pages. CoCo needs 1.5K of 
memory for each page reserved. The 
number of pages needed depends on 
the resolution you want and the 
number of separate screens to be 
held in memory. PCLEAR reserves 
between one and eight pages for 
graphics use. 

2. Choose the mode you want. The 
mode determines the resolution and 
color combinations displayed. There 
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are three two-color modes and two 
four-color modes. PMODE identifies 
the mode and page on which the im- 
age will be placed. 

3. Choose the color set you want and 
call the graphics screen. Use the 
SCREEN command to set this up. 
You can choose from two text 
screens and two color sets. 

4. Select the foreground and back- 
ground colors you want. This step 
allows you to create a display 
without specifying color in in- 
dividual commands. COLOR sets 
this parameter. 

All Extended Color BASIC graphics 
programs use these commands in one 
form or another to set up the display. 
Efficient use of these commands makes 
high speed, high-resolution graphics 
programming available to the BASIC 
programmer. 

Next month, in addition to news, I 
will take a look at some hooks to RAM 
from the BASIC ROMs. A list pager 
program will demonstrate the use of 
these hooks. 

iSMCftO 



WHAT'S WHERE IN THE APPLE 
A Complete Guide to the Apple Computer 

This REVISED EDITION of the 
famous Apple Atlas provides Apple 
computerlsts with a framework for 
understanding both the overall 
organization and structure of the 
Apple system and programming 
techniques that exploit that 
knowledge. 

What's Where in the Apple contains 
the most complete memory map 
ever published as well as detailed 
information needed for actual 
programming. 

All for onry $24.95 
(plus $5.00 s/h) 

For owners of the original edition, 
MICRO is offering a companion 
book, THE GUIDE to What's Where^ 
in the Apple, for only $9.95 (plus 
$2.00 s/h) 

THE GUIDE contains all new 
material that explains and : 
demonstrates how to use the atlas 
and gazetteer published in the 
original volume of What's Where in 
the Apple? 




VISA and MasterCard accepted 



MICRO makes it easy to order! 
Send check to: 

MICRO INK 

P.O. Box 6502 

Chelmsford, MA 01824 

Or call our toll-free number: 

1-800-345'8112 

(In PA, 1-800-662-2444) 
MA residents add 5% sales tax 



TM 



/AlCftO 

New Publications 



Survey consists of three sections: Per- 
sonal Computers, Engineering, and 
General Interest. It is published bi- 
monthly. For further information and 
to receive a sample pre-publication 
issue, send name and address with $2 
to KVA Associates, 2821 Camino del 
Mar, Del Mar, CA 92014. Phone (714) 
755-0041. 

The Computer Tutor, Learning Activi- 
ties for Homes and Schools, by Gary W. 
Orwig and William S. Hodges. Win- 
throp Publishers, Inc. (17 Dunster 
Street, Cambrdige, MA), 1982, 203 
pages, 8Vi x 11 inches, paperback. 
ISBN: 0-87626-147-0 $10.95 

Programming the 6809, by Rodnay 
Zaks and William Labiak. Sybex (2344 
Sixth St., Berkeley, CA 94710), 1982, 
520 pages, paperback. 
ISBN: 0-89588-078-4 $14.95 



Intioduction to WordStar, by Arthur 
Naiman. Sybex (2344 Sixth St., 
Berkeley, CA 94710), 1982, 220 pages, 
paperback. 

ISBN: 0-89588-077-6 $8.95 

Data Cominunications for Micro- 
computers: With Practical Applications 
and Experiments, by Elizabeth A. 
Nichols, Joseph C. Nichols, and Keith 
R. Musson. McGraw Hill Book Com- 
pany (1221 Avenue of the Americas, 
New York, NY 10020), 1982, 264 
pages, paperback. 
ISBN: 0-07-046480-4 $16.95 

WRITE, EDIT, & PRINT: Word Pro- 
cessing with Personal Computers, by 

Donald H. McCunn. Design Enterprises 
of S.F. (P.O. Box 14695, San Francisco, 
CA 94114), 1982, paperback. 
ISBN: 0-932538-06-1 $24.95 

Word Processing Primer, by Mitchell 
Waite and Julie Area. BYTE Books/ 
McGraw Hill (1221 Avenue of the 
Americas, New York, NY 10020), 
1982, 188 pages, paperback. 
ISBN: 0-07-067761-1 $14.95 



Fortran Programs for Scientists and 
Engineers, by Alan R. Miller. Sybex 
(2344 Sixth Street, Berkeley, CA 
94710), 1982, 320 pages, paperback. 
ISBN: 0-89588-082-2 $15.95 

Introduction to the UCSD p-System, 

by Charles W. Grant and Jon Butah. 
Sybex (2344 Sixth St., Berkeley, CA 
94710), 1982, 300 pages, paperback. 
ISBN: 0-89588-061-X $14.95 

VIC Innovative Computing, by Clifford 
Ramshaw. Melbourne House Publishers 
(347 Reedwood Drive, Nashville, TN 
37217), 1982, 151 pages, paperback. 
ISBN: 0-86161 108-X $14.95 

User's Guide to PET/CBM Computers, 

by Jeffrey R. Weber. Weber Systems 
[8437 Mayfield Road, Cleveland, OH 
44026), 1982, 324 pages, paperback. 
ISBN: 0-9604892-8-2 $14.95 

Basic BASIC-English Dictionary for the 
Apple, PET, and TRS-80, by Larry 
Noonan. dilithium Press (Beaverton, 
OR), 1982, 150 pages, paperback. 
ISBN: 0-918398-54-1 $10.95 
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Reviews in Brief 



Product Name: The Disk Doctor 

Equip, req'd: TRS-80C disk, 32K 

Price: $49.95 

Manufacturer: Superior Graphic Software 

406 Little Mountain Road 

Waynesville, NC 28786 
Description: The Disk Doctor is a disk-salvage program for 
the Color Computer. The doctor will assist in transferring 
files from a "crashed" disk onto a different disk. Programs 
can be recovered even if the disk directory and allocation 
tables have been destroyed. Included with the package are 
an eight-page operation guide, a sample "crashed" disk, 
and the system disk. Disk Doctor is written in BASIC, and 
can be easily modified. 

Pluses: The program is capable of reconstructing lost disk 
files in their entirety, no matter what their file type. Run- 
ning Disk Doctor on machine-language files before the 
disk crashes gives a printout of ML start, end, and execute 
addresses. A wealth of information on preventative main- 
tenance of disks is provided. 

Minuses: The Disk Doctor has only one minor limitation 
— when salvaging a file larger than 12,288 bytes and you 
try to continue the transfer operation past the last graphics 
page, the transfer program overwrites The Disk Doctor. If 
this happens, the transfer procedure must be restarted 
from the beginning. This file size limitation is noted in the 
instructions and is easily avoided if you are careful. 

Documentation: The Disk Doctor is full of "medical" in- 
formation on sick disks. There are no lists of instructions, 
but the operator is guided through a disk reconstruction 
using the included crashed disk. 

Skill level required: A knowledge of the disk file structure 
is helpful, and the user is referred to the Color Computer 
disk-system manual for preliminary information. 

Reviewer: John Steiner 



Product Name; OSI Greatest Hits 

Equip, req'd: OSI IP or Superboard 

Price : $29 . 95 plus $ 1 . 50 shipping 

Manufacturer: Victory Software Corp. 

2027-A S.J. Russell Circle 

ElkinsPark, PA 191 1 7 
Description: Greatest Hits is a collection of original pro- 
grams for the OSI IP computer. The programs fill both 
sides of two cassette tapes. Tape one cohtains 18 game pro- 
grams; Night Rider, Cosmic Debris, Minos, Street 
Sweeper, Ridge Cruiser, and Worm are excellent games 
with good graphics effects. The second tape contains 16 



utility programs. The two tapes represent nearly two 
hours of programs at 300 baud. 

Pluses: The user can list, study, and modify these BASIC 
programs. A number of machine-code subroutines are used 
to increase the graphics speed and create some impressive 
effects. Smooth movement is obtained by clever use of the 
OSI character set. Some programs even let the player 
record his initials when he makes a new high score — just 
like the "real" arcades. 

Minuses: The programs with graphics are written 
specifically for the IP screen and ROM BASIC. These pro- 
grams will need modification to run on any other OSI 
machine. The keys used to move UP, DOWN, LEFT, and 
RIGHT are not consistent among the various games. The 
user will have to modify the programs to fit his particular 
joystick hook-up. The utility programs are not of wide 
general interest; however, you may find one or two that fit 
your needs. 

Documentation: A brief description and rules for each 
game are provided. Program listings are available at addi- 
tional cost. 

Skill level required: Good hand-eye coordination and fast 
reflexes. 

Reviewer: E.D. Morris 



Product Name: Basic' 

Equip, req'd: Apple II or Apple II Plus 

One disk drive 
Price: $129.00 

Manufacturer: Delta Micro Systems, Inc. 

P.O. Box 15951 

1022 Harmony Street 

New Orleans, LA 70175 

(504) 895-1481 
Description: This program development system for BASIC 
consists of a text editor, a preprocessor, a menu program, 
and a special disk operating system that detects the 
presence of a special protection chip that plugs into the 
game I/O socket of the Apple. The heart of the software is 
a preprocessor program that accepts a program written in 
the Basic' language (a structured dialect of BASIC) and pro- 
duces Applesoft programs as output. Basic' provides the 
advantages of structured control statements that ordinary 
BASIC does not have: REPEAT-UNTIL, CASE, IF-ELSE, 
and PROC [named procedures without parameters). 

Pluses: Basic' provides an easy way for those already 
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Reviews in Brief (continued) 

familiar with BASIC programming to learn the principle of 
structured programming. 

Minuses: The system imposes limits on the size of source 
files. This could make large program development 
awkward, since the editor evidently does not make it easy 
to shift chunks of one source file to another. Thus, when 
one file fills up and you want to insert a bunch of new code 
in the middle of it, it would be necessary to key in the tail 
end of that file all over again in another text file. [Editor's 
note: there is a procedure in the manual to eliminate 
rekeying. Computer Assisted Analysis and Interactive 
Sports Systems have also developed large-scale BASIC pro- 
grams using this system.] The system is menu-driven and 
does not allow the use of an eighty-column display card. 
Basic' generates Applesoft source code, which is 
equivalent to the source code written in Basic'. 

Documentation: Well written, concise, and attractively 
packaged. 

Skill level required: Knowledge of BASIC and a desire to 
learn structured programming. 

Reviewer: Richard Vile 



Product Name: ColorZAP 

Equip. leq'd; TRS-80C, RS disk system 

Price: $49.95 

Manufacturer: Software Options, Inc. 

19 Rector Street 

New York, NY 10006 
Description: ColoiZAP is a BASIC program with machine- 
language routines that allow the user to examine, change, 
or copy data on Color Computer diskettes. ColoiZAP will 
access four drives and remains in memory so that all drives 
are available for program use. The program will display all 
sectors, or display sectors in a given file. Sectors can be 
verified for accuracy. 

Pluses: ColoiZAP quickly moves from sector to sector, 
forward or backward by pressing the -i- or - key. Direct 
access to any sector is allowed. A cursor-controlled screen 
editor modifies individual bytes. All changes are made in 
memory and transferred to the disk only when you are 
ready. A convert routine allows you to convert granule 
numbers into the track and sector numbers required for 
data file access. 

Minuses: None noted. 

Documentation: A 24-page manual describes program 
operation in detail and provides valuable information on 
disk system parameters. 

Skill level required: A solid basic knowledge of disk file 
structure is necessary, especially when trying to 
reconstruct a defective or killed file. 



It Pays to Write 
for MICRO! 



Get paid for your ideas: write for 
MICRO! Thousands of people read 
MICRO every month. MICRO is sold 
in computer stores and on newsstands 
worldwide. Send for a copy of our 
Writer's Guide now. Our author 
payment rate is competitive with the 
leading magazines in the industry. 

We welcome articles on any aspect of 
6502/6809/68000 hardware and 
software for the Apple, Atari, 
C B M / P E T , VIC, OSI, TRS-80 
Color Computer, 6809, or 68000. 



1983 Editorial Schedule 



Month/Feature 

April — Communications 

May— Wave of New Computers 

June — Operating Systems 

July — Hardware 

August — Word Processing 

September — Education 

October — Programming Techniques 

November — Games 

December — New Microprocessors 



Deadline for Articles 

December 17 
January 14 
February 16 
March 18 
April 15 
May 13 
June 17 
July 15 
August 12 



Reviewer: John Steiner 



(continued) 



Send your articles to: 
Editor, MICRO, P.O. Box 6502, 
Chelmsford, MA 01824 
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Product Name: 
Equip, req'd: 



Price: 
Manufacturer 



VIE (VIC IEEE Interface) 

VIC-20 (5K or more) 

PET to IEEE cable 

IEEE Device(s] 

$99.95 

Micro-Systems 

11105 Shady Trail #104 

Dallas, Texas 75229 
Description: VIE is a cartridge-like unit that plugs into the 
expansion port of the VIC-20 and enables the VIC to com- 
municate with IEEE devices like the PET/CBM 2022 
printer and 4040 disk drives. A PET to IEEE cable (not pro- 
vided) attaches to the side of the VIE. The VIE also has an 
expansion slot so other cartridges may be attached to the 
VIC without removing the VIE. Approximately IK of ROM 
software is built into the VIE which is accessed by a 
SYS40000 command to initialize the interface. Once in- 
itialized, communication with any IEEE device is by direct 
commands or from within a program. 

Pluses: The VIE is reliable and extremely easy to use. It 
takes no memory away from the VIC, nor interferes with 
normal operation. It's attractively packaged and comes in 
a hard plastic case that matches the VIC's case and color. 

Minuses: The expansion slot on the VIE is positioned so 
that added cartridges are vertical. Inserting cartridges into 
the VIE can cause stress on the VIC's expansion connec- 
tion. Adding a piece of wood under the VIE will solve this 
problem. 

Documentation: The VIE comes with a single page of 
documentation that covers everything quite well. 

Skill level required: The user should understand the com- 
mands needed to communicate with his IEEE devices. 

Reviewer: David Malmberg 



Product Name: 



Equip, req'd: 
Price: 



Manufacturer; 



$34.95 



Type N Talk 
Text-to-Speech Synthesizer 

Virtually all personal computers 
$249.00 (plus cable) 
Interface cable for VIC and 64 
For other computers - $24.95 
Votrax, Inc/ 
Federal Screw Works Division 
Consumer Products Group 
500 Stephenson Highway 
Troy, MI 48084 
Description: Type 'N Talk is a completely self-contained 
text-to-speech synthesizer that attaches to your computer 
via an RS-232C serial port. When you open a file and write 
to this port using BASIC or other languages, the text you 
write is converted to speech. The speech sounds mechani- 
cal, but the overall quality is good and understandable. If 
you have a VIC-20 or Commodore-64, you will need a 
special cable available from Votrax that attaches to the 
user port. The Type 'N Talk has its own microprocessor 
and buffer (with enough capacity to hold a minute's worth 
of speech), so speech can occur while the host computer is 
doing something else. The text-to-speech synthesizer 



creates speech from electronic phonemes that give an 
unlimited vocabulary and the ability to speak languages 
other than English. The unit has a built-in amplifier with 
volume and frequency controls and a jack to plug in a 
speaker (not provided). 

Pluses: Type 'N Talk works well once you overcome the 
lack of any practical examples in the documentation. The 
unit is fun (especially for children) and is an impressive 
demonstration of your computer's power. 

Minuses: See Documentation. 

Documentation: A 32-page manual primarily addressed to 
engineers and/or hardware experts. There is no additional 
documentation. 

Skill level required: None. 

Reviewer: David Malmberg 



Product Name 
Equip, req'd: 



Price: 
Manufacturer: 



Printographer 

Apple n Plus 

Any of the popular printers 

$49.95 

Southwestern Data Systems 

P.O. Box 582 

Santee, CA 92071 
Description: A versatile screen-dump program designed for 
ease of use interfaces routines for most of the Apple- 
compatible printers cunently available. Features to 
"crop" a picture permit you to print only desired parts of a 
picture. The manufacturer's standard backup facility pro- 
vides a maximum of three copies to be made. 

Pluses: Pictures can be positioned on a page both horizon- 
tally and vertically. A magnification feature allows you to 
blow up and print just a portion of a picture. A subroutine 
permits printing under Applesoft control. 

Minuses: None noted. 

Documentation: Well written; numerous illustrated ex- 
amples speed the familiarization process. 

Skill level required: A beginning BASIC programmer 
should have no trouble. 

Reviewer: Chris Williams 



Product Name: Chromasette Magazine 

Equip, req'd; TRS-80C w/Extended BASIC 

Price: $45.00/year or $5.00 each 

Manufacturer: Chromasette Magazine 
P.O. Box 1087 
Santa Barbara, CA 93102 
Description: Chromasette is a monthly magazine with ap- 
proximately six programs on cassette for the Color Com- 
puter. Programs range in nature from games to utilities or 
home-management software. All tapes include a graphics 
cover program. Some programs are written especially for 
the CoCo disk system. 

(continued) 
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Pluses: An interesting newsletter that accompanies the 
cassette provides information on using the programs, bugs 
found in previous issues, reader modifications, and short 
program listings not found on the tape. It is an inexpensive 
source of CoCo software for a wide variety of applications. 
Where possible, tape-to-disk conversion information is in- 
cluded. 

Minuses: Not all programs are usable on all machines. You 
must have Extended BASIC to run most of the programs. 

Documentation: Provided in the accompanying newsletter,- 
typically four to six pages. 

Skill level required: Programs are provided for all levels, 
from novice to hardware hacker. 

Reviewer: John St'einer 



Product Name: 
Equip, req'd: 
Price; 
Manufacturer: 



VIC Expansion Module 

VIC-20 (5K or more) 

$49.95 

Parsec Research 

P.O. Drawer 1766 

Fremont, CA 94538 
Description: The VIC Expansion Module plugs into the ex- 
pansion port in the back of your VIC and enables you to 
have up to three cartridges operable simultaneously. Using 
this module, you can add up to 32K of additional RAM 
memory, or combinations of RAM and utility cartridges 
like the toolkit or machine-language monitor. 

Pluses: It works reliably. The module is well made with 
double-gold plating throughout. It is designed to rest flush 
with the table, so inserting cartridges will not put any 
stress on the VIC expansion connectors. 

Minuses: The unit's black color does not go well with the 
rest of the VIC's color scheme. 

Documentation: Clear and concise. The module also 
comes with a detailed memory map and instructions on 
how to set the DIP switches in Commodore's 8K RAM car- 
tridges to corre-spond to any 8K block. 

Skill level required: None. 

Reviewer: David Malmberg 



dress, the machine code (one to five bytes for a 6809|, the 
effective address specified by the instruction, ASCII 
characters represented by the code, and the assembly- 
language statement deduced from the code. Users with a 
narrow-format printer can get the "full output" printed 
with a special indented format that eases interpretation of 
the data. During program set-up, the user can specify 
various types of code areas within the program. 

Pluses: This software is highly user-oriented; the ex- 
perienced user can glean a maximum of information in a 
minimum of time. 

Minuses: Not available in ROM; but such use may be too 
specialized to warrant production. 

Documentation: Thorough and clearly written. 

Skill level required: Novice assembly-language programmer. 

Reviewer: Ralph Tenny 



Product Name; 



Equip, req'd: 

Price: 
Manufacturer: 



The Software Automatic Mouth 

(S.A.M.) 

Apple II with Applesoft 

48K RAM and DOS 3.3 

$124.95 

Don't Ask Computer Software 

2265 Westwood Blvd. 

Suite B-150 

Los Angeles, CA 90064 
Description: This software voice synthesizer generates 
clear speech from strings of phonemes (speech sounds 
represented by about 50 unique letter combinations), with 
programmable pitch, speed, and inflection. A program to 
translate English text directly to speech is included. To 
use S.A.M. from Applesoft, BLOAD S.A.M. , assign the 
string to be spoken to SA$, CALL an address, and S.A.M. 
speaks. Connection to an external speaker is through the 
included plug-in card. 

Pluses: Speech is clear and expressive, easy to generate and 
manipulate from Applesoft or assembly language. The disk 
is unprotected. This is an outstanding and fascinating 
product at a reasonable price. 

Minuses: S.A.M. programs will not work on other Apple 
models without a converter card. 



Product Name: 80C Disassembler 

Equip, req'd: TRS-8G Color Computer plus printer 

Price; $49.95 

Manufacturer: The Micro Works 

P.O. Box 1110 

Del Mar, CA 92014 
Description: 80C Disassemblei is a tape-based 6809 
assembly-language disassembler specifically tailored to 
the Color Computer. The output from the disassembler 
can be any one of three formats. Users with an 80-column 
printer can specify the "full output" mode that lists an ad- 



Documentation: The excellent, thorough manual includes 
a 1500- word phonetic spelling dictinary. 

Skill level required: None to enjoy the demonstration 
programs; ordinary knowledge of BASIC to use S.A.M. in 
programs. 

Reviewer: Jon R. Voskuil 
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PRODUCTS FOR ATARI* 400/800 
FROM ELCOMP 




SOFTWARE IN BASIC FOR ATARI 



Invoice Writing for Small Business 

This program makes writing invoices easy. Store your ' 
products in DATA statements with order -number, 
description, and price. The program later retrives the 
description and price matching to the entered order- 
number. The shipping cost and the discount may be 
calculated automatically depending on the quantity 
ordered or entered manually. The description to the 
program tells you how to change the program and 
adapt it to your own needs. Comes with a couple of 
invoice forms to write your first invoices on to it. 
Order #7201 cassette version S29.95 

Order #7200 disk version S39.95 

Mailing List I 

This menu driven program allows the small business I 
man to keep track of vendors and customers. You can 
search for a name or address of a certain town or for 
an address with a certain note. 50 addresses are put 
into one file. 

Order # 721 2 cassette version SI 9.95 

Order #7213 disk version S24.95 

Inventory Control 

This program is menu driyen. It gives you the 
following options; read/store data, define items, 
entry editing, inventory maintenance {incoming- 
outgoing), reports. The products are stored with 
inventory number, manufacturer, reorder tevei, 
present level, code number, description. 
Order #7214 cassette version S19.95 

Order #7215 disk version S24.95 i 

Programs from Book # 164 

-The programs from book no, 164 on cassette. (Book 
included! 
Order #7100 S29.00 

Game Package 

Games on cassette. (Bomber, tennis, smart, cannon 

fodder, etc.) 

Order #7216 S9.95 



Care and Feeding of the Commodore PET 

Eight chapters exploring PET hardware. Includes 
repair and interfacing information. Programming 
tricks and schematics. 
Order #150 S9.95 




Payment: check, money order, VISA, MASTER- 
CHARGE, Euroscheck. 

Orders from outside USA: add 15% shipping. CA 
residents add 6.5% tax 

'ATARI is a registered trademark of ATARI Inc. 
"VIC-20 is a registered trademark of Commodore 



SOFTWARE IN MACHINE LANGUAGE fa 


r ATARI 


ATMOMA 1 

This IS a machine language monitor that pro 


J ides you 


v;ilh tht! most important commands for pror 
in machine-language. Disassemble, dump 


ramming 
hex and 


ASCII), change memory location, block tra 


nsfer, fill 


memory block, save and load machine-lang 


uage pro- 


grams, start programs. Printer option \j 


ia three 


different interfaces. 




Order — 7022 cassette version 


S19.95 


Order ^ 7023 disk version 


S24.95 


Order ^7024 cartridge version 


359,00 


ATMONA-2 




This is a tracer (debugger) that lets you ex 


plore the 


ATARI RAM/ROM area. You can stop at p 


'eviously 


selected address, opcode, or operand, A 


so very 


valuable in understanding the microproce 


ssor. At 


each stop, all registers of the CPU may be 


changed. 


1 nciuoes h i (Vitj t v a - i . 

Order i= 7049 cassette version 


S49.95 


Order ir7050 disk version 


S54.00 


ATMAS 




Macro-Assembler for ATARI-800/48k. On 


e of the 


most powerful editor assemblers on the 


market. 


Versatile editor with scrolling. Up to 17k o 


f source- 


Code. Very fast, translates 5k source-code ir 


about 5 


seconds. Source code can he saved on disk or 


cassette. 


(Includes ATMONA-1) 




Order ii 7099 disk version 


S89.0Q 


Order — 7999 cartridge version 


3129.00 


ATAS 




Same as ATMAS but without macro-ca 


pability. 


Cassette-based. 




Order #7098 32k RAM 


S49.95 


Order ^7998 48k RAM 


849.95 


ATEXT-1 




This wordprocessor is an excellent buy 


or your 


money. It features screen oriented editing. 


croliing. 


string search (even nested), left and rig'h 


margin 


justification. Over 30 commands. Text can 


le saved 


on disk or cassette. 




Order #7210 cassette version 


829.95 


Order ^7216 disk version 


834.95 


Order ^7217 cartridge version 


869.00 


GUNFIGHT 




This game (8k machine-language) needs tvjo j 


Dystieks. 


Animation and sound. Two cowboys figh 


against 


each other. Comes on a bootable cassette. 




Order #7207 


819.95 



ELCOMP FORTH for the ATARI 



ELCOMP FORTH is an extended Fig-Forth- 
version. Editor and I/O package included. Utility 
package includes decompiler, sector copy, Hex- 
dump (ASCII), ATARI Filehandling, total graphic 
and sound, joystickprogram and player missile. 

Order #7055 disk 839.95 

Floating point package for ELCOMP FORTH with 
trigonometric functions (0 - 90°), 
Order i^ 7230 disk 829.95 

Learn FORTH from ELCOMP 

A subset of Fig-Forth for the beginner. On disk 

(32k RAM) or on cassette {16k RAM). 

Order #7053 819.95 



Expansion boards for the APPLE II 



jBBjjBjjS|j^^SKil|U2|IRMyajJJ^^ 

lTil3B7iMll)M 



ELCOMP Publishing Inc, 

53 Redrock Lane 

Pomona CA 91766, 

Phone: (714) 623-8314 



Books 

+ 

Software 

for 

ATARI 

VIC-20 

OSI 

SINCLAIR 

TIMEX 



Hardware - ADD-ONS for ATARI 
PRINTER INTERFACE 



gameports 3 and 4), 

Order =17211 S;9.95 

RS-232 Interface for your ATARI 400/800 

Software with connector and construction article. 
Order #7291 S19.95 

EPROM BURNER for ATARI 400/800 

Works with gameports. No additional power supply 

needed. Comes compl. assembled with software 

(2716,2732,2532). 

Order ±7042 S179.00 

EPROM BURNER for ATARI 400/800 KIT 

Printed circuit board incl. Software and extensive 

construction article. 

Order #7292 S49.00 

EPROM BOARD (CARTRIDGE) 

Holds two 4k EPROMs (2532). EPROMs not included. 
Order?r7043 S29.95 




EPROM BOARD KIT 

Same as above but bare board onh 
Order #7224 



ATARI, VIC-20, Sinclair, Timex and OSI 



New - for your ATARI 400/800 

Astrology and Biorythm for ATARI (cass. or disk). 

Order #7223 S29.95 

Birth control with the ATARI (Knaus Ogino) 

Order ff 7222 cass. or disk S20.95 

Books + Software for VIC-20 (requires 3k RAM Exp.) 

#4870 Wordprocessor for VIC-20, 8k RAM S19.95 
4883 IVIailing List for VIC-20, 16k RAM S14.95 
"11 Tricksfor VICs-The VICstory Progr. S9.95 
180 TICTACVIC S9.95 

#4881 GAMEPACK I (3Games) S14 95 

#4885 DualJoystick Instruction 29.95 

IIMPUT/OUTPUT Programming with your VIC 
Order #4836 S9.95 

#4896 Miniassembler for VIC-20 S19.95 

#4881 Tennis, Squash, Break S9 95 

#4894 RunfiliforVIC S9.95 

Universal Experimenter Board for the VIC-20 - 
(Save money with this great board). This board 
plugs right into the expansion slot of the V;C-20. 
The board contains a large prototyping area for your 
own circuit design and expansion. The construction 
article shows you how to build your own 3k RAM 
expander and ROM-board. 

Order #4844 S18.95 

Software for SINCLAIR ZX-81 and TIMEX 1000 
#2399 Machine Language Monitor 89.95 

#2398 Mailing List S19 95 

Programming in BASIC and machine language v;ith 
the ZX-81 (82) or TIMEX 1000. 
Order#140 (book) 89 95 

Books for OSI 
#157 The First Book of Ohio S7.95 

#158 The Second Book of Ohio S7.95 

#159 The Third Book of Ohio 87.95 
#160 The Fourth Book of Ohio 87.95 
# 161 The Fifth Book of Ohio 87.95 

151 8K Microsoft BASIC Hef. Man. 89.95 

■ 1 52 Expansion Handbook for 6502 and 6802 89.95 
# 1 53 Microcomputer AppI . Notes 89 .95 

Complex Sound Generation 

New revised applications manual for the Texas 

Instruments SN 76477 Complex Sound Generator. 
Order#154 86.95, 

Small Business Programs Order #156 

Complete listings for the business user. Inventory, 
Invoice Writing, Mailing List and much more. Intro- 
duction to Business Applications. SI 4,90 . 
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Name: Concentrated 

Chemical 
Concepts 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: 3.3 DOS, disk 

drive 
Description: This package of 
drill and practice programs 
covers the entire course in in- 
troductory general, organic, 
and biological chemistry for 
health science majors. The 
programs are intended for in- 
troductory college or advanced 
placement programs in high 
schools. No computer ex- 
perience is necessary and com- 
plete documentation accom- 
panies the programs. 
Price: $300.00 - Part I 
$225.00 - Part U 
$150.00- Part III 
$550.00 - all nine disks 
Part I (general] includes four 
disks, Part II (organic] 
includes three disks, and 
Part in (biology) includes 
two disks. 
Author: Richard Cornelius 
Available: 
John Wiley & Sons, Inc. 
Eastern Distribution Center 
Order Processing Dept. 
1 Wiley Drive 
Somerset, NJ 08873 



Name: Pie Man 

System: Apple II Plus 
Memory: 48K 
Language: Machine language 
Description: As the pies come 
out of the oven onto a con- 
veyor belt, you (the baker's ap- 
prentice) must get a can of 
whipped cream, squirt it on 
the pie, grab a cherry, put it on 
the pie, then take the finished 
pie and put it in the pie bin. 
Watch out for flour sacks and 
grease spots on the floor and 
the slightly tipsy wedding- 
cake baker delivering his crea- 
tions. If you let seven pies fall 
to the floor, you're fired. 
Price: $29.95 

Includes disk and instruction 

booklet. 
Author: Eagle Berns, 

Michael Kosaka 
Available: 

Penguin Software 

830 4th Avenue 

Geneva, IL 60134 



Name: MicRo Quiz U 

System: TRS-80 Model HI, 

VIC-20 
Memory: 16K - TRS-80 
Model III 
8K - VIC-20 
Language: BASIC 
Description: MicRo Quiz II is a 
subject-independent CAI 
authoring package with class 
evaluation features that re- 
quires no computer program- 
ming knowledge. 
Price: $39.95 

Includes comprehensive, 

easy-to-use instruction 

manual. 
Available: 

M-R Information Systems, 
Incorporated 

P.O. Box 73 

Wayne, NJ 07470 



Name: Sensible Speller 

System: Apple II, Apple H 

Plus 
Memory: 48K 
Language: 5 versions 

available: Pascal, 
DOS 3.3, CP/M, 
Word Handler, 
and Super-Text 
Hardware: One or two disk 

drives 
Description: A spelling-verifi- 
cation program designed 
specifically for the Apple. The 
official Random House Dic- 
tionary, Concise Edition 
(80,000 plus words) is included 
in both diskette and hardcover 
form. The average time to 
proofread a 10-page document 
(about 3350 words) is one 
minute if there are no spelling 
mistakes or two minutes, 15 
seconds for many spelling 
mistakes. Shorter documents 
will take less time. 
Price: $125.00 
Includes instruction manual, 
two copies of the Sensible 
Speller program diskette, a 
main dictionary diskette, a 
hardcover copy of the 
Random House Dictionary, 
Concise Edition, and binder 
to hold the complete 
package. 
Author: Charles Hartley 
Available: 
Sensible Software 
6619 Perham Drive 
West Bloomfield, MI 48033 
(313) 399-8877 



Name: INTROL-C/6809 
Compiler 

System: 6809 running 

FLEX, UniFLEX, 
OS-9, Z80/8080 
running CP/M 
Memory: 48K plus 8K 
-FLEX-09 
40K free memory 
-OS-9 

60K - CP/M 
Language: C 

Description: This is a full C 
compiler system for develop- 
ing programs in C for 
6809-based target applications. 
The software package includes 
a C compiler, 6809 assembler, 
linking loader, run-time 
library, and library manager. 
INTROL-C/6809 supports vir- 
tually all standard C as defined 
by Kernighan and Ritchie. It is 
efficient both in terms of size 
and speed of execution. Com- 
piled programs are re-entrant, 
relocatable, and ROMable. 
Price: From $475 

Includes floppy disk, user's 

manual, and one-year 

maintenance program. 
Author: Richard Pennington 
Available: 

Introl Corp. 

647 W. Virginia St. 

Milwaukee, WI 53204 

(414) 276-2937 



Name: Filmtape 

System: Apple II Plus 
Memory: 48K 
Language: Applesoft, 

compiled by 
Microsoft 'TASC 
Hardware: DOS 3.3 and 

printer 
Description: Filmtape is 
designed to aid film editors and 
others who need rapid, frame- 
accurate translation of film 
times into television time 
codes. Working with a cut 
workprint and up to four O/S 
rolls, it can help trim up to 
80% from on-line video editing 
times, often paying for itself in 
one session. Users may mix 
types of film and time code. 
Price: $395.00 

Includes diskette, manual, 

full support. 
Available: 

Editing Services 

615 Fairground 

Plymouth, MI 48170 

(313) 459-4618 



Name: Economic Order 

Quantity (E.O.Q.) 
Package 

System: Apple II or IBM 

Personal Computer 
Memory: 48K/Apple 

64K/IBM 
Hardware: Apple II — disk II 
disk controller 
and at least one 
disk II disk drive. 
IBM — 80-column 
video monitor, 
optional printer 
Description: The ExecuwareTM 
Economic Order Quantity 
(E.O.Q.) Package provides the 
businessman with a tool to 
minimize overall inventory 
costs. The package calculates 
the Economic Order Quantity 
and the Order Point. The sen- 
sitivity analysis affords the 
user the opportunity to per- 
form "what if" analysis and to 
determine which variables 
cause the EOQ and the Order 
Point to vary significantly. 
Probability theory is used to 
simulate the variable demand, 
thereby insuring realistic in- 
ventory levels at all times. 
Price: $174.95 
Includes instruction manual 
and diskette. 
Author: Execuware^M 
Microcomputer Software 
Division of Aeronca, Inc. 
Available: 
Apple and IBM Personal 
Computer dealers 



Name: The Count 

System: Apple II or Apple 

II Plus 
Memory: 48K 
Language: Applesoft BASIC 
Hardware: DOS 3.3, one or 
more disk drives 
Description: A winning Black- 
jack system; an interactive 
program which teaches strate- 
gies for playing-card counting, 
and betting for a winning 
Blackjack game. 
Price: $24.95 

Includes disk and manual. 
Author: Pear Software 
Available: 

Insoft, Inc. 

10175 S.W. Barbur Blvd. 

Suite 202B 

Portland, OR 97219 
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Name: Hockey 
System: Atari 400/800 
Memory: 16K RAM 
Language: Assembler 
(Machine) 
Hardware: Two, three, or 
four joysticks, 
cassette recorder 
or disk drive 
Description: Hockey is a high- 
speed video action game for 
two, three, or four players. It is 
played on an enclosed rink, 
with scoreboard including 
clock overhead. Game players 
use joysticks to control the ac- 
tion. Offensive players skate 
with the puck, pass, and shoot. 
Defensive players steal the 
puck and intercept passes. 
Goalies block shots. Hockey 
includes "smart" players who 
perform automatically. 
Price: $29.95 
Available: 
Gamma Software 
P.O. Box 25625 
Los Angeles, CA 90025 
1213) 473-7441 



Name: AMPER-SORT/ 
MERGE n 

(A-S/M n) 
System: Apple II 
Memory: 48K 
Language: Applesoft BASIC 
and machine 
language 
Hardware: DOS 3.3, disk 

drive 
Description: AMPER-SORT/ 
MERGE is a general-purpose 
disk sort/merge utility lor 
Apple DOS text files. Its 
machine-language file can sort 
1000 records in seconds, alpha- 
numerically (ascending or 
descending order) on up to five 
fields, random or sequential 
text files, and merge two to 
five pre-sorted files into a 
single file. It is compatible 
with most data-base programs 
that create standard DOS 3.3 
text files. New features are 
S&.H's super fast VisiFile index 
sort (callable from within 
VisiFile for effortless use) and 
a fast random access file in- 
dex sort. 
Price: $69.95 

Includes disk and 

documentation. 
Author: Alan G. Hill 
Available: 

S&.H Software 

58 Van Orden Road 

Harrington Park, NJ 07640 

(201) 768-3144 



Name: OMNIPACK 

System: Apple II, Apple III 
Memory: 48K minimum - 
Apple n 

128K minimum - 
Apple m 
Language: BASIC and 6502 

machine language 
Hardware: At least one disk 
drive, printer 
optional 
Description: OMNIPACK con- 
sists of three separate pro- 
grams for which data files are 
fully interchangeable. OMNI- 
FILE is a powerful RAM-based 
file management system and 
report generator, with global 
editing, built-in statistical 
functions, and flexible output 
formatting. OMNIGRAPH is a 
versatile data-plotting program 
for constructing X-Y plots, bar 
charts, and pie charts. OMNI- 
TREND is a powerful 
multiple-regression trend- 
analysis program. 
Price: $129.95 -Apple n 

$169.95 - Apple m 

Includes two diskettes and 

user's manual. 
Author: M.K. Booker 
Available: 

Educational Computing 
Systems 

136 Fairbanks Road 

Oak Ridge, TN 37839 

(615) 483-4915 



Name: A.S.A.P. 

System: Apple 11, Apple II 

Plus 
Memory: 48K 
Language: Apple Run-Time 

Environment for 

Pascal 
Hardware: One disk drive 

[SW], THE MILL 

6809 co-processor 
Description: The system 
allows a wide variety of 
popular programs to utilize the 
power of THE MILL. Similar to 
the Pascal Speed Up System, 
A.S.A.P. works with software 
intended for the Run-Time En- 
vironment — including PFS 
and VisiSchedule. It increases 
speed in processing, compila- 
tion, and printing. 
Price: $295.00 
Includes A.S.A.P. software 
and THE MILL. 
Author: SB Programming 

Available: 
Stellation Two 
The Lobero Bldg. 
P.O. Box 2342 
Santa Barbara, CA 93120 
(805) 966-1140 



Name: Interface 
System: Apple II Plus 
Memory: 48K 
Language: Applesoft 
Hardware: DOS 3.3, disk 

drive 
Description: Interface reads 
numerical tables in three for- 
mats, transforms and re- 
arranges rows or columns, fits 
curves to data, and outputs 
files in several formats. The 
program's primary function is 
to translate from VisiCalc to 
Apple Plot, while adding flex- 
ibility and preventing er- 
roneous graphs. It also sup- 
plements VisiCalc with rank 
ordering, alphabetizing and 
curve fitting, and outputs 
tables to Apple Writer or 
VisiCalc itself. 
Price: $30.00 

Includes instructions and 

copy able program disk. 
Available: 

Bill Staibuck 

2100 E. Edgewood 

Shorewood, WI 5321 1 

(414) 963-9750 



Name: Fiaccions 
System: PET 
Memory: 16K 
Language: BASIC 
Hardware: Cassette player or 

disk drive 
Description: An overview pro- 
gram and a placement test pro- 
gram begin this carefully - 
structured sequence of 24 in- 
teractive programs. Eleven 
tutorial programs, each backed 
by a fun and challenging en- 
richment game program, help 
students (grade five and up) 
develop the confidence, con- 
cepts, and skills needed to 
master fractions. 
Price: $175.00 for 12 tapes or 

6 diskettes 

Includes teacher's guide and 

software. 
Author: Joanne Benton 
Available: 

Quality Educational Designs 

P.O. Box 12486 

Portland, OR 97212 

(503) 287-8137 

Name: Guadalcanal 
Campaign 

System: Apple II, Apple II 
Plus, or Apple HI 
Memory: 48K 
Language; BASIC 
Hardware: One disk drive 
Description: The 294-turn 
campaign game takes into ac- 
count every Japanese and 
American warship that par- 
ticipated historically in the 



campaign. Each is rated for 
speed, cargo/plane-carrying 
capacity, damage points, num- 
ber of main guns, secondary 
anti-aircraft guns and torpedo 
tubes. An abridged campaign 
(184 turns) is available as well 
as four mini-games which take 
only two to four hours to play. 
Game has both solitare and 
two-player versions. 
Price: $59.95 

Includes one disk, rulebook, 

and two maps. 
Author: Gary Grigsby 
Available: 

Strategic Simulations Inc. 

465 Fairchild Dr. 

Suite 108 

Mt. View, CA 94043 



Name: Tax Dodge 
System: Atari 400/800 
Memory: 32K 
Language: 6502 machine 

language 
Description: Tax Dodge is a 
scrolling maze game in which 
the taxed citizen tries to col- 
lect as much money as possi- 
ble without being hit by the 
tax collectors. 
Price: $39.95 
Author: Jon Freeman, 

Anne Westfall 
Available: 

Island Graphics 

BoxU 

Bethel Island, CA 94511 



Name: Seafox 

System: Apple II, Apple II 

Plus, Atari 

400/800 
Memory: 48K 
Language: Machine language 
Hardware: Apple - keyboard, 

joystick, and 

paddle 

Atari - joystick 
Description: You are in control 
of a lone submarine looking for 
a convoy of enemy ships and 
its escort. Dodge exploding 
depth charges, avoid menacing 
mines, and evade speeding 
torpedos in an effort to elimi- 
nate the foe. You will need 
superior maneuvering ability, 
great courage, and a welcome 
aquatic ally to survive. 

Price: $29.95 
Author: Ed Hobbs 
Available: 

Broderbund Software, Inc. 

1938 Fourth Street 

San Rafael, CA 94901 

(415) 456-6424 

(Continued 
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Name: DSS/F Decision 

Support System/ 
Finance 

System: Apple 
Memory: 64K 
Language: Pascal 
Hardware: Disk drive, serial 
interface, Hewlett- 
Packard one, two, 
four, and eight pen 
plotters, or 
Houston 
Instrument 
plotters 
Description: Micro Decision 
Support System/Finance 
(DSS/Fj is a financial model- 
ing and graphics system that 
assists managers, planners, 
and others with no previous 
computer knowledge to per- 
form financial forecasting and 
reporting, investment analy- 
sis, cash flow forecasting, 
budgeting, consolidations, and 
strategic planning. Features in- 
clude English modeling lan- 
guage, financial function, 
graphics, report generator, and 
sophisticated power. 
Price: $1500.00 
Includes manuals, software, 
and support. 
Available: 
Ferox Microsystems 
1701 N. Fort Myer Drive 
Arlington, VA 22209 
Attn. Phil Evans 
(7031 841-0800 



Name: Real Estate 

Analysis Package 
(REAP) 

System: Apple II, Apple II 

Plus 
Memory: 48K 
Hardware: One disk drive 

and printer 
Description: The Real Estate 
Analysis Package performs 
property income analysis, cal- 
culates after-tax results if sold 
or exchanged, highlights tax 
sheltering effects, simulates 
inflation, and enables you to 
know when to buy, hold, or 
dispose of property. It allows 
up to 20-yeaT projections and 
utilizes the Rule of 78's, ACRS 
Depreciation Methods, and 
multiple and/or assumable 
loans. A must for investors, 
tax advisors, and accountants. 
Price: $274.95 suggested retail 

Includes user's manual and a 

diskette. 
Author: ExecuwareTM 

Available: 
Computer retail stores 



Name: Super-TextTM 
40/56/70 

System: Apple U 
Memory: 48K 
Language: Machine language 
Hardware: Disk drive 
Description: You can choose a 
40-, 56-, or 70-column screen 
display without any additional 
hardware. Super-Text gives 
you the best features in word 
processing for easy text hand- 
ling all the way through. It in- 
troduces the Character 
Designer for creative special 
display characters and includes 
Autolink, the file-linking 
system for one-step search and 
replace or print functions. 
Price: $125.00 

Includes tutorial 

documentation, quick 

reference card, and dual disk 

back-up. 
Author: Ed Zaron 
Available: 

Muse Software 

347 N. Charles St. 

Baltimore, MD 21201 

or computer stores 



Name: T/MAKER ffl 
System: Apple II, IBM PC, 

Osbom, 

NorthStar, or any 

system offering 

CP/M 
Memory: 48K minimum 
Description: T/MAKER MI uses 
a unique visual syntax to 
facilitate easy yet powerful 
word processing/ text editing, 
list management/tabulation, 
spreadsheet/ scientifc calcula- 
tions, load/unload data, and 
many other functions. 
Price: $275.00 retail 
Includes software, manual, 
and tutoiial/quick reference 
booklet. 
Author: Peter Roizen 

Available: 
TMAKER 
1742 Willow Rd. 
Suite 206 

Palo Alto, CA 94304 
(415) 326-6103 
Call or write for distributor 
information 



Name: Mind Boggleis-1 

System: Atari 400/800 
Memory: I6K - cassette 

24K - disk 
Hardware: Disk drive or 

cassette recorder 
Description: Three thought- 



provoking mind bogglers are 
Capture — a strategy game in 
which you and the computer 
fight for control of the board 
[based on Othello]; Mystery 
Box — a game in which you 
shoot rays into the mystery 
box to find the hidden atoms; 
and Simon Says — a memory 
teaser in which you must 
repeat the computer's pattern. 
The game adapts to the 
player's skill level. 
Price: $15.95 - cassette 

$19.95 - disk 

Includes cassette or diskette 

and user's guide. 
Available: 

Versa Computing, Inc. 

3541 Old Conejo Rd. 

Suite 104 

Newbury Park, CA 91320 

(805) 498-1956 



Name: PTD-6502 
System: Apple II, Apple n 

Plus 
Memory: I6K mimimum 
Language: 6502 machine 

language 
Hardware: Autostart ROM 

for fast breakpoint 
Description: This BASIC-like 
compiled language debugs 
6502 machine language and is 
relocatable. Nearly all com- 
mands can be executed in im- 
mediate mode or as part of a 
program with line numbers. 
Check on complex compound 
conditions at 1000 instruc- 
tions/second, then see the 128 
executed instructions prior to 
the condition. 
Price: $49.95 
Includes relocator source 
code. 
Author: Edwin Rosenzweig 
Harlan Harrison 

Available: 
Pterodactyl Software 
1452 Portland Ave. 
Albany, CA 94706 



Name; El Diableio 
System; Radio Shack Color 

Computer 
Memory: 16K 
Language: Assembly 

language 
Hardware: Disk or cassette 
Description: El Diablero is an 
adventure game extraordi- 
naire! You wake, dazed and 
confused, in the middle of a 
southwestern desert. You had 
been learning the techniques 
of sorcery from an old man 
who told you that an evil 
sorcerer, a diablero, was his 
enemy. Now your teacher is 
missing and you are alone. You 
can't seem to remember the 
techniques you learned except 



the curious verse... 
Price: $19.95 - cassette 

$24.95 - disk 

plus $2.00 S/H 

Includes cassette or disk and 

instructions. 
Author: Kenneth Kalish 
Available: 

Computerware 

Box 668 

Encinitas, CA 92024 

(714) 436-3512 



Name: The Big Math 
Attack 

System: Apple II Plus, 

Atari 
Memory: 48K - Apple II 

16K - Atari 

cassette 

24K - Atari disk 
Language: Applesoft, Atari 

BASIC 
Description: This program 
skillfully combines the excite- 
ment and challenge of an ar- 
cade game with basic math 
skills of addition, subtraction, 
multiplication, and division. 
An equation is launched from a 
spaceship. The player must 
enter the correct answer before 
the equation lands on the city. 
Grades one to six. 
Price: $25.00 disk 

$20.00 Atari cassette 
Author: Schreiber &. Schrebier 

Available: 
T.H.E.S.l.S. 
P.O. Box 147 

Garden City, MI 48135-0147 
or from dealers 



Name: Alphabet Squares 

System: Apple II 
Memory: 48K 
Hardware: Disk drive 
Description: An ideal program 
for the young computer user 
learning the ABC's. Excellent 
hi-res color graphics present 
three familiar objects: A is for 
airplane, B is for bird, etc. You 
use the joystick or paddles to 
move a pointer graphic from 
the letter to the correct pic- 
ture. If correct, the graphic 
will expand to full screen as a 
reward. An exciting progam for 
that young user who would 
like to use the computer too. 
Price: $29.95 

Includes floppy diskette, 

user guide. 
Available: 

Versa Computing, Inc. 

Suite 104 

3541 Old Conejo Rd., 

Newbury Park, CA 91320 

(805) 498-1956 
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Name: Market Time 

System; CP/M, Apple Z80 
card, IBM PC, 
Osborne 1, etc. 
Memory: 34K 
Language: A Compiled 

BASIC 
Hardware: Requires Cursor 
Control and two 
disk drives 
Description: Market Time, an 
easy-to-use menu-driven pro- 
gram, provides a data base of 
selected market statistics that 
can be analyzed with moving 
averages and plotted on screen 
or printer to spot market turn- 
ing points. It also features an 
expandable data base to allow 
entering additional market 
statistics of the user's choice. 
Price: $75.00 
Includes program disk, data 
file disk, and user's manual 
in three-ring binder. 
Available: 
Hourglass Systems 
P.O. Box 312, 
Glen EUyn, IL 60137 
(312) 690-1855 



Name: AAARRRGGG!!! 

System: Atari 400/800 
Memory: 16K - cassette 

32K - disk 
Language: Hybrid 
Description: The fabric of 
space has been weakened by 
atomic bomb testing! Strange 
little creatures are popping 
through from another dimen- 
sion, cluttering up the Earth. 
You have to catch as many as 
you can before your time runs 
out. Act quickly though, be- 
cause the highest point-value 
creatures disappear the fastest. 
If you can catch the "SUPER 
AAARRRGGG," you'll get 
bonus time and super bonus 
points, but don't get poisoned 
by the glowing green radio- 
active creatures! 
Price: $18.95 plus $2.00 S/H 
Author: Bob Retelle 
Available: 

Pretzelland Software 

2005 Whittaker Rd. 

Ypsilanti, MI 48197 

(313) 483-7358 

or local dealers 



Name: Shuttle Intercept 

System: Apple II 
Memory: 48K 
Language: Applesoft 
Hardware: One disk drive 

and a game paddle 



Description: Shuttle Intercept 
takes you on a daring rescue 
mission into deep space. Your 
spacecraft is directed to re- 
trieve friendly satellites bear- 
ing vital data and must fight or 
avoid enemy craft, satellites, 
missiles, and meteors. 
Price: $34.95 
Author: John Van Ryzin 
Available; 

The Hayden Software Co. 

600 Suffolk Street 

Lowell, MA 01853 



Name: Fast Figure 

System: CP/M, Apple, 
Z80, IBM PC, 
Wang MYP, 
DECmate, Prime 
Microdata, 
Osborne I, 
NorthStat 
Memory: 54K 
Language: A compiled BASIC 
Hardware: Cursor control, 
two disk drives, 
and Z80 card 
Description: Past Figure, a new 
electronic spreadsheet pro- 
gram with helping menus, of- 
fers sophisticated business 
calculations such as deprecia- 
tion, present value and net 
present value, internal rate of 
return, compound growth, 
standard deviation, and what- 
if analysis in a package any 
business can easily afford. Fast 
Figure's three-dimensional 
file-sharing feature lets the 
user create additional multiple 
spreadsheets from one file 
without time consuming re- 
entry of data. 
Price: $150.00 
Includes program disk and 
user's manual. 

Available: 
Hourglass Systems 
P.O. Box 312 
Glen Ellyn, IL 60137 
(312) 690-1855 



Name: Pot 'O Gold 

System: Apple II Plus 
Memory: 48K 
Language: Applesoft 
Hardware: Disk drive, DOS 
3.3, and paddles 
Description: Pot 'O Gold is a 
medley of 46 games that in- 
cludes such classics as Eliza, 
Color Math, Keyboard Organ, 



Othello, Dragon Maze, Hex- 
pawn, and Pinball. With the 
Echo n speech synthesizer, text 
appearing on the screen will 
have a voice accompaniment. 
Price: $39.95 
Author: Jim Day 
Available: 

Rainbow Computing Inc. 

19517 Business Center Dr. 

Northiidge, CA 91324 

(213| 349-0300 



Name: Modula-2 
System: Apple II, Apple HI, 
Z80/8080, TI9900 
Memory: 64K 
Language; Modula 2, Apple 
Pascal, UCSD 
Pascal Version 2.0 
Description: The Modula-2 
language, designed by Pascal's 
creator Niklaus Wirth, pro- 
vides a simple but powerful 
alternative for systems pro- 
gramming in assembly lan- 
guage, Pascal, C, and ADA. 
Features include modules, pro- 
cesses, separate compilation, 
dynamic array parameters, and 
low-level machine access. 
Price; $550.00 

Includes compiler, librarian, 

run-time library, and 

interpreter. 
Available: 

Volition Systems 

P.O. Box 1236 

Del Mar, CA 92014 

(714) 481-2286 



Name: TransFORTH 
System: Apple II or Apple 
U Plus (Apple III 
version sold 
separately) 
Memory: 48K 
Language; Machine language 
Hardware; DOS 3.3, one or 
more disk drives 
Description: TransFORTH is a 
compiled programming lan- 
guage similar to FORTH that 
features floating-point capabil- 
ity and scientific functions, 
DOS 3.3 compatibility, ver- 
satile array structures, exten- 
sibility, and structured in- 
teractive programming. 
Price: $125.00 

Includes disk and manual. 
Author; Paul Lutus 
Available: 

Insoft, Inc. 

I0I75 S.W. BarburBlvd. 

Suite 202B 

Portland, OR 97219 



Name: The Filer 

System: Apple II, Apple II 

Plus 
Memory: 48K 
Language: 6502 Assembly 
Hardware: DOS 3.3, one or 
more disk drives 
Description: This is a general 
utility system for the Apple. 
Features include FAST copy 
program, disk speed and 
check, copy, delete, lock, 
unlock files, change booting 
program, and a catalog with 
space on the disk. 
Price; $19.95 

Includes one disk with 

instructions. 
Available: 

Central Point Software, Inc. 

P.O. Box 19730-203 

Portland, OR 97219 



Name: DarkstarTM 

System: Timex-Sinclair 
1000 (ZX81), 
Apple II, Atari 
800/400 
Memory: 16K RAM/Sinclair 
48K RAM/Apple H 
and Atari 
Language: BASIC 
Hardware: Standard cassette 
tape deck — 
Sinclair 

Disk drive with 
DOS 3.3 — Apple 
810 disk drive or 
410 recorder — 
Atari 
Description: This program 
solves problems associated 
with the photographic dark- 
room. It provides exposure 
times needed for changes to 
magnification, lens opening, 
and print density for both 
black-and-white and color 
materials, for both chromo- 
genic or dye-bleach materials. 
It provides color-printing 
filter-pack checking and cor- 
recting for color balance, 
neutral density, and filter fac- 
tors, and development times 
for black-and-white films over 
a wide temperature range, as a 
function of the user's ideal pro- 
cessing time at 68"F. Expert- 
type program. 
Price: $99.95/Sinclair tape 
$129.95/Apple/Atari disk 
$129.95/Atari tape 
Includes 34 pages of 
documentation. 
Author: Bob Nadler 
Available; 
F/22 Press 
P.O. Box 141 
Leonia, NJ 07605 
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|ng For Quality Software? 

READ THIS: 

If the high price of commercial soft- 
ware and the lack of clear information 
about your microcomputer has got you 
down, here's the solution you've been 

waiting for! 

SoftSide Magazine 

SoftSide is a favorite of computer users and 
sts alike. They rely on it as a prime source 
programs, reviews and articles for the Ap- 
' , ATARI®, and TRS-80® microcomputers 
SoftSide is the magazine for the microcom- 
Duter owner who wants to learn BASIC pro- 
gramming, learn MORE about BASIC pro- 
gramming, or just wants to have FUN! 
SoftSide gives you the BASIC code listings 
of several programs — adventures, 
utilities, games, simulations, you name it 
- for your computer EVERY MONTH. 

There's more: 

• Reviews — of the software and hard- 
ware products you want to know 
about. 

Articles — about all aspects of 
BASIC programming. 

Tutorials — on graphics, use of im- 
portant commands, and more. 
Programs — each month SoftSide 
publishes a variety of program for the 
Apple, ATARI® and TRS-80®. 



• Columns — which discuss different topics in- 
cluding: computer graphics, picking the right 
modem for you and marketing your software — 
just to name a few. 

• Input from our readers — each month we 
devote a space in the magazine to let our 
readers give us some feedback about SoftSide. 

• Hints & Enhancements — programmers and 
readers provide us with enhancements, to our 
programs, and programming tips. 

Use coupon to order. Mail to: SoftSide Publica- 
tions, 6 South St., Milford, NH 03055 

As you can see, you'll receive pages and 
pages of information and entertainment 
from SoftSide. Here's the best part: 

A subscription to SoftSide is just $24 a 
year. That's 12 issues for only $2 each! 
What a value! 



I — I YES! Send me the first copy of my 
SoftSide subscription right away! 

$24/yr for USA and Canada only. For orders to APO/FPO 
or Mexico — $40/yr. Other foreign orders — $62/yr. 



1 own a □ Apple 


□ ATARI® 


□ TRS-80® 


Name 






Address 


City/State 




7ip 



n Check is enclosed 

n MasterCard n VISA 

Name of Cardholder 



MC#and lnterbank#/VISA# 

Exp. Date 

Signature 
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Name: VC-PLUS 

80-column 

System: Apple II 
Memory: 48K 
Hardware: Legend 128K or 
64KRAM 
expansion card|s) 
Description: Add memory to 
Personal Software's 16-sector 
VisiCalc program using Legend 
memory cards and the new 
VC-PLUS with 80-column 
capability. Your Apple II can 
have more power than an Apple 
UI at a fraction of the cost. 

Price; Free with purchase of 

RAM card. 

$20.00 as an update. 

Includes diskette and 

operation manual. 
Available; 

Legend Industries, Ltd. 

2220 Scott Lake Rd. 

Pontiac, MI 48054 

1313) 674-0953 



Name: Kraft Precision 

Joystick 

System: Apple II, IBM PC, 
TRS-80 Color 
Computer 
Description: Kraft Precision 
Joystick features instantly 
selectable spring-centering or 
free-floating stick modes at the 
flip of a switch. High-quality 
potentiometers ensure greater 
linearity and better stick 
performance. Full one-year 
warranty. 

Price; $64.95 - $69.95 
Available: 
Contact Kraft Systems for 
name of nearest dealer 
(714) 724-7146 



Name: MAC INKER 

Description; MAC INKER 
automatically re-inks ribbons 
for any printer at an average 
cost of five cents per ribbon. 
Operation is simple. The ink 
contains a special lubricant 
that helps improve the life of 
the print-head. 

Price: $54.95 

Includes one two-ounce ink 

bottle (approximately six 

months of intensive use). 
Available; 

Computer Friends 

100 North West 86th Ave. 

Portland, OR 97229 

(503) 297-3231 



Name: 6522 Parallel I/O 
Card 

System: Commodore 

VIC -20 
Language: BASIC or 

assembly language 
Description; This card is 
designed to plug directly into 
the VIC's expansion port. It 
provides two programmable 
8-bit ports with expanded 
handshake capability that 
allow the user to interface any 
parallel peripheral device to 
the VIC-20. It also includes 
two 16-bit programmable 
timer/counters and a serial 
data port. The on-board 
switch-selectable address 
feature allows the alteration of 
the card's memory location 
within the system and pro- 
vides for the use of multiple 
cards when an expansion 
chassis is utilized. 
Price; $69.95 — assembled 

and tested 

$59.95 — kit 

Includes the user guide and 

application notes. 

Available; 
Fountain Intelligent Devices 

Company 
P.O. Box 913 
Palo Alto, CA 94302 
OEM and dealer inquiries 
welcome 



Name; DISKBUB 

Description; DISKBUB is a 
compact bubble-memory 
board with 128K bytes of data 
storage. It will interface to the 
FLEXTM operating system 
using a 68XX-based micro- 
processor with a 30-pin ss 50 
I/O bus. DISKBUB acts like a 
disk but has the advantages of 
bubble memory, high reliability 
data storage, and operation in 
harsh environments. DISK- 
BUB can be used to boot up 
systems, replacing the need for 
disks altogether. Its appli- 
cations include process con- 
trol, automation, data logging, 
and robotics. It can be used vir- 
tually anywhere a computer 
must withstand a harsh 
environment. 
Price; $995.00 
Available; 

Universal Data Research Inc. 

2457 Wehile Drive 

Buffalo, NY 14221 



Name; EPHOM Pack 
System; TRS-80 Color 

Computer 
Memory; 4K and up 
Language; BASIC or 

Extended BASIC 
Description; The EPROM Pack 
is a plug-in cartridge for the 
Color Computer that allows 
up to 16K bytes of user ROM to 
be added simply and quickly to 
the machine. Four sockets are 
contained in the pack to allow 
2732-type EPROMs to be in- 
serted. Additional programs, 
like assemblers, word pro- 
cessors, graphics, and games 
can be permanently available 
to the computer. 
Price; $39.95 

Includes EPROM Pack 

cartridge and full 

instructions. 
Available; 

Maple Leaf Systems 

Box 2190, Station "C" 

Downsview, Ontario, 

Canada M2N 2S9 



Name; Atari Bank Select 
Memory 

System; Atari 400 
Memory; 64K 
Description; The board con- 
sists of 48K RAM with four 
banks of 4K RAM addressed 
above the 48K limit to insure 
that the 48K is continuous and 
52K RAM is always available. 
It also means a ROM cartridge 
will never affect the availabil- 
ity of the bank select RAM. 
The 4K RAM banks allow for a 
larger hard-wired RAM size 
and all Atari software and 
peripherals are compatible. 
Price; $249.95 suggested retail 

Available; 
Mosaic Electronics 
P.O. Box 708 
Oregon City, OR 97045 
|800) 547-2708 

Name; Computer Case 

System; Commodore 64 
Description; CM703 holds the 
Commodore 64 computer, one 
or two 1541 disk drives, power 
supply, and other equipment. 
CM704 holds the Commodore 
64 computer and dataset pro- 
gram recorder (plus other 
equipment). These cases pro- 
vide portability and a conven- 
ient method of storage, free 



from possible damage and dust 
accumulation. The computer 
and software are protected 
from tampering and unauthor- 
ized use by replacing and lock- 
ing the lid. 
Price: $119.00 - CM703 

$109.00 - CM704 
Available; 
Computer Case Company 
5650 Indian Mound Court 
Columbus, OH 43213 
(800) 848-7548 
Or most computer stores 



Name: NOVADAPTER 
Description: NOVADAPTER 
consists of two 25-pin 
D-connectors, 25 short wires 
with pins crimped-on, some 
B-crimps, and a hood. Using 
the short wires you can wire 
between the pin positions and 
create the cable connection 
quickly. Ideal for extension 
cables, gender changers, and 
null modems. It replaces all 
existing cables with 25-pin 
D-connectors. 
Price; $30.00 
Available: 

Innovative Supplies &. 
Accessories Inc. 

P.O. Box 61149 

Dallas, TX 75261 

(214) 641-8090 

Name: ROM Simulator 

Description: This is a new fast- 
responding PvOM simulator 
that is capable of emulating 
virtually any ROM, program- 
mable ROM, or erasable 
PROM. The simulator oc- 
cupies one card slot of any 
IEEE standard SlOO bus com- 
puter. The P&E board also 
simulates memory-response 
time for experimenting with 
various timing possibilities. 
When not in use as a simu- 
lator, the board can function as 
additional RAM for the micro- 
processor or as an I/O port- 
driven memory extension unit. 
Price; $600.00 

Includes 2K RAM and 

complete manual. 
Available; 

P&.E Microcomputer 
Systems, Inc. 

P.O. Box 2044 

Woburn, MA 01880 

(617) 944-7585 
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Name: PET |oystick 

Interface 

System: PET/CBM 
Description: This versatile in- 
terface card adds joystick/pad- 
dle capabilities to all PET/ 
CBM computers. The device 
enables the PET to accept in- 
put directly from two Apple 
joysticks, four Apple game 
paddles, or two Atari joysticks. 
The interface is complete and 
ready to plug into the user 
port. All modes of operation 
are software-selectable. The 
device features short access 
time |less than 10 milli- 
seconds/joystick) and high- 
resolution digitization (greater 
than 8 bits|. Fast machine- 
language input routines, 
callable from a BASIC pro- 
gram, are included. 
Price; $49.95 

Includes interface card,power 

supply, documentation, and 

sample software. 
Available: 

1 Systems Corp. 

1 Edmund Place 

Ann Arbor, MI 48103 

(313) 662-4714 



Name: The Spectrum 
Stick 

System: Color Computer 
Memory: 4K-64K 
Language: Microsoft BASIC 
Hardware: Joystick 
Description: The Spectrum 
Stick has the following 
features: hair trigger firebut- 
ton, swivel ball-type compo- 
nent joystick to give you a 
smooth and true feel, red LED 
power indicator to remind you 
to shut off the Color Computer 
after the TV, brush-aluminum 
knob, and extra-long cable. 
Price: $39.95 plus $2.00 S/H 

Includes joystick, firebutton, 

case, and cable. 
Available: 

Spectrum Projects 

93-1586 Drive 

Woodhaven, NY 11421 

(212] 441-2807 



Name: RS-232 Expansion 

Cable 

System: Color Computer 
Memory: 4K and up 
Hardware: "Y" cable 
Description: The RS-232 Ex- 
pansion Cable allows two 
devices to be connected to the 
serial I/O port at the same 
time. A printer and modem 
can be hooked in-line without 
constantly swapping cables. 
Price: $19.95 plus $1.00 S/H 



Available: 
Spectrum Projects 
93-1586 Drive 
Woodhaven, NY 11421 
(212] 441-2807 Voice 
(212) 441-3755 Computer 

Name: BUSMAN 

System: Commodore 

PET/CBM 
Description: BUSMAN pro- 
vides dual IEEE-488 busses; 
one for "local" peripherals used 
excusively by the installed 
system; the other allows 
multiple BUSMANs to be net- 
worked together to share 
"common" peripherals. It 
maintains the stand-alone 
ability of Commodore systems 
plus networking. 
Price: $595.00 each 
Available: 
Lem Data Products 
P.O. Box 1080 
Columbia, MD 21044 



Name: MULTIPORT^m 

System: TRS-80 Color 

Computer 
Memory: 4K-32K 
Language: BASIC 
Description: The MULTIPORT 
is a hardware device contain- 
ing four sockets that allow 
Color Computer peripherals 
(disks, program cartridges, I/O 
cards, etc.] to be on-line at all 
times and selectable under 
software control. 
Price: $99.50 

Includes fully assembled and 

tested MULTIPORT and 

documentation. 
Available: 

Maple Leaf Systems 

P.O. Box 2190, Station "C" 

Downsview, Ontario 

Canada M2N 2S9 



Name: SYSTEM lOO^M 

System: Apple II, Apple HI, 

IBM PC, etc. 
Description: These modular, 
solid-oak units feature con- 
temporary design with unique 
disk storage capabilities allow- 
ing random selection of any 
disk by label. The units house 
disk drives, manuals, monitor, 
and accessories as well. All the 
units function individually or 
collectively with available 
add-on modules in user- 
customized configurations. 
Price: From $31.95 to $279.95 

per module, FOB shipping 

point 

Includes Floppy Fingeis^'^ 

diskette holders, Floppy 



Diawers^*^ diskette filing 
system, The Bridge '■"'^ 
hardware organizer. 
Available: 
Venice Woodworking Co. 
12810 Venice Boulevard 
Los Angeles, CA 90066 
(213) 390-4885 



Name: RS-232 Expansion 

System: Color Computer 
Memory: 4K and up 
Hardware: "Y" cable 
Description: The RS-232 Ex- 
pansion Cable allows two 
devices to be connected to the 
serial I/O port at the same 
time. A printer and modem 
can be hooked in-line without 
constantly swapping cables. 
Price: $19.95 plus $1.00 S/H 
Available: 

Spectrum Projects 

93-1586 Drive 

Woodhaven, NY 11421 

(212) 441-2807 Voice 

(212) 441-3755 Computer 



Name: AliS 

Instrumentation 
Modules 

System: 48K Apple II or 

Apple II Plus 
Memory: 2.5K RAM 
maximum 
Language: 6502 Machine and 
Applesoft RAM or 
ROM 
Hardware: Disk drive, printer 

optional 
Description: The ALIS family 
of data acquisition and control 
modules for an Apple II com- 
puter provides an economical 
multi-function laboratory or 
industrial instrumentation sys- 
tem. Hardware and augmented 
BASIC software permit 8- or 
12-bit analog input/output, and 
multi-function digital I/O at 
rates up to lOK Hz under ALIS 
software control. The digital 
module provides 32 bidirec- 
tional lines, 2 16-bit hardware 
clocks, and up to 14 ser- 
viceable interrupt conditions. 
Price: $1149.00 8-bit analog 

input 

$1517.00 12-bit analog input 

$1787 Digital I/O 

$613.00 - $991.00 Analog 

output 

Includes PC card|s|, cables, 

terminal box, AMPERALIS 

and real time graphics 

software on diskette, and 

manual. 
Available: 

Eco-Tech, Inc. 

2990 Lake Lansing Rd. 

P.O. Box 776 

East Lansing, MI 48823 

(517) 337-9226 



Name: Executive Compu- 
Cover 

System: All 

microcomputers 
Description: The Executive 
Compu-Cover is an attractive, 
high-quality leatherette cover 
for computers, disk drives, 
monitors, printers, and other 
peripheral equipment. These 
covers will prevent dust and 
foreign matter from entering 
and damaging equipment 
when not in use. 
Price: $14.95 ppd. - Apple II 

Other prices on request. 
Available: 

Executive Compu-Cover 

76-51 169 Street 

Queens, NY 11366 

(212) 969-1079 



Name: Apple-Verter 

Model APX 800 

System: Apple II 
Description: This plug-in 
video to RF modulator for 
Apple II operates in high VHF 
band (Ch. 7-10), tunable. It at- 
taches inside the Apple II 
w/VELCRO, then plugs into 
an existing video/power con- 
nector. The die-cast aluminum 
housing executes frequency 
stability with no assembly 
needed. Built-in 5V regulator 
allows use with other com- 
puter systems. 
Price: $29.75 
Available: 

ATV Research or local 

dealers 



Name: BUBBLE^" 
System: APPLE 11 
Memory: 128K Bubble 

memory 
Hardware: Intel 7110 
Language: DOS 3.3 with 

patches for Pascal 
and CP/M 
128K Non-volitile memory 
with on-board boot prom 
eliminates disk and operates in 
any environment. It is three to 
four times faster and 1000 
times more reliable than Flop- 
py. Bubble boots directly from 
the module or operates in con- 
junction with disk system. 
Price: $875.00 
Includes software for DOS 
3.3 emulation and boot 
prom. 
Available: 
MFC Peripherals 

Corporation 
9424 Chesapeake Drive 
San Diego, CA. 92123 
or your local Computerland 
Store 
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EXPANSION 




Tired of trying to run your word processor or your DMB on an 
OS! 64 character video screen? Now there's the SEB-3, THE 
most versatile 80x24 video board anywhere is available for OSI 
48 pin BUSS systems. No longer will you have to consider con- 
verting your video-based system to a serial terminal because 
you've found 64 characters stifling for serious business use. 
Nor need you give up compatibility with any existing graphics 
software because the SEB-3 allows you to choose ANY screen 
format up to 80x24 including 32x32 and 64x32. Since the 
SEB-3's screen format can be changed at any time under soft- 
ware control, even gaming displays can benefit from screens 
custom tailored to the game itself. The SEB-3 is so 
well designed and so versatile that it will not need 
to be replaced — ever. Simple changes in software and/or 
hardware will allow the SEB-3 to: generate displays up to 256 



columns; handle 50 Hz European formats: accomodate custom 
characters or character cell sizes larger or smaller than 8x8 
and transparently access the screen to eliminate screen 
"glitches". In short, the SEB-3 will meet any demands your 
system may place on it now and in the future. The SEB-3 also 
supports an OSI-style floppy disk interface which can handle 
two 5" or 8" drives. Like all of the boards in the SEB series, 
the SEB-3 simply "plugs in" to your machine — there are 
absolutely NO hardware changes. The SEB-3 is designed to 
replace your outmoded 540 board so you don't even lose a 
backplane slot. Your keyboard input now also plugs into 
the SEB-3 — load one of the software drivers and you're 
ready to go! 
SEB-3 Assembled $259.00 Bare Board $59.00 

Kit $220.00 Manual on ly $5.00 




If your Challenger can't generate displays like those shown 
above WHAT ARE YOU WAITING FOR? The SEB-1 High 
Resolution Graphics and Memory Board (for C1P and 
Superboard II) and the SEB-2 High Resolution Graphics and 
Disk Controller Board (for C2/4/8) simply 'plug-In' to your 
computer and give you instant access to over 49000 
individually addressable pixels in up to 8 colors! Your Hi-Res 
screen can go from 32x 16 alphanumerics to 256 x 192 point 
graphics in 1 1 software selectable modes. The standard video 
of your computer is left intact, so that none of your current 
software library is outmoded. Use the graphics for Business, 
Scientific, Education, or Gaming displays that were impossible 
— until now! SEB-1 SEB-2 



Installation of either board requires absolutely NO modification of 
your computer— they just 'plug-in'. Nor do they preclude your 
using any other OSI-compatible hardware or software. In addition 
to the Hi-Res Graphics the SEB-1 gives CI & Superboard II users 
16K of additional user memory (over and above that memory 
devoted to the graphics), two 16 bit timers/counters, an on-board 
RF modulator, and a parallel port with handshaking. The SEB-2 
gives OSI 48-pin BUS users an OSI hardware/ software 
compatible Disk controller, and an RF modulator that can be 
user-populated. 

FOR OSI IP, 2-4P, 2-8P, C4P, C8P 



SEB-1 



SEB-2 



Assembled and Tested 
Kit 



$249.00 (5K RAM) $239.00 (1 K RAM) 
$1 65.00 (No RAM) $199.00 (No RAM) 



COMING: SEB-3 BO x24 VideolDisk Controller (C2I4IB), SEB-4 4BK Memory 
RAM/ROM (C2I4IB), SEB-5 BK RAUIDIsklSoundlClocklVoice (CI i Superboard). 



Write for FHEE catalog 

International Requests please 

supply 2 International Response Coupons 



ORION 



Bare Board & Manual 
Manual only 


$ 59.00 
$ 5.00 


$ 59.00 
$ 5.00 


k 




VISA' 

•762-5636 


1 

SOFTWARE ASSOC. 


M 


P.O. BOX 31 0, OSSI NING,NY10562 914 
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6809 Bibliography 



Dr. William R, Dial 
438 Roslyn Avenue 
Akron, OH 44320 



93. Color Computet News (August, 1982) 

Lester, Lane P., "Mileage Monitor," pg. 40-42. 

An automotive program for the Color Computer. 
Began, John R., "Digits," pg. 44-45. 

Mix alphanumerics with your graphics programs with this 

program for the Color Computer. 
Phelps, Andrew, "Comment Corner," pg. 46-48. 

Documentation of the "get next character" routine of the 

TRS-80 Color Computer. 
Sullivan, Steve, "Venus Lander," pg. 49-54. 

A game for the 6809-based Color Computer. 
Hawks, Christopher, R., "Homebrew 64K Conversion," pg. 
57-58. 

A hardware article for TRS-80 Color Computer users. 
Hogg, Frank, "64K Komer," pg. 59-60. 

Miscellaneous notes on memory assignments in the 

6809-based TRS-80 Color Computer. 
Rothstein, Mark, "On Modifying Packaged ROM Programs," 
pg. 61-64. 

Notes on ROM program modification including a listing for 

an "Automated Address Modification Program" for the Col- 
or Computer. 
Giovanoni, Richard, "Learning Curves — A Real Life Use of 
Microcomputers in Aerospace," pg. 65-76. 

A Color Computer curve graphics program. Listing and 

examples. 
Hornsby, James A., "Justprin," pg. 77-83. 

A word-processing program featuring proportional spacing for 

the Color Computer. 
Hunt, Craig, "Air Raid," pg. 86-91. 

A graphics game for the 6809-based Color Computer. 

94. MICRO, No. 52 (September, 1982) 

Clark, Hal, "6809 Macros for Structured Programming," pg. 
57-63. 

This article presents a technique for using 6809 assembler 

macros to allow structured assembly-language programming. 
Suckle, Leonard 1., "Market Projection Program for the Color 
Computer," pg. 67-77. 

A sophisticated business program implemented on the 

6809-based TRS-80 Color Computer. 
Staff, "MICRO Reviews in Brief," pg. 103-106. 

Reviews include several pieces of software for the 6809 user. 
Dial, Wm. R., "6809 Bibliography," pg. 110. 

Some 32 references to the 6809 literature are cited. 
Staff, "MICRO Software Catalog," pg. 111-116. 

Several software programs for 6809-related equipment are 

cited. 
Staff, "MICRO Hardware Catalog," pg. 117. 

Hardware for 6809 systems are listed. 

95. 80-U.S. Journal, 5, No. 9 (September, 1982) 

Tangeman, Richard, "Color Computer Assembler/Dis- 
assembler," pg. 38-45. 

Get inside your 6809E-based Color Computer with this utility. 
Davis, Lynn, "Three Color Computer Video Tips," pg. 96-97. 

Several listings for the TRS-80 Color Computer involving 

switching PMODEs for effect. 

96. '68' Micro Journal, 4, Issue 9 (September, 1982) 

Anderson, Ronald W., "FLEX User Notes," pg. 8-11. 

Notes on addition and subtraction routines with 6809 FLEX. 



Notes on FORTH, Pascal, "C", BASIC, and assembler 

languages. 
Nay, Robert L., "Color User Notes," pg. 11-12. 

Notes of interest to TRS-80 Color Computer users. 
Distefano, Tony, "Color Clinic," pg. 13-14. 

A hardware modification to alter the background color on the 

6809-based Color Computer. 
Commo, Norm, " 'C User Notes," pg. 14-18. 

Discussion of initialization code for the 'C user. 

Urie, Paul M., "Telecon C," pg. 18-20. 

Discussion of new utilities for 6809 systems. Includes some 

benchmark tests. 
Zeff, Robert, "Simple Winchester Interface," pg. 20-21. 

Hardware and procedure for implementing a Winchester hard 

disk on 6809 systems. 
Pass, E.M., "6800 to 6809," pg. 24-26. 

Converting 6800 assembler language to 5809 assembler 

language. 
Watson, Ernest Steve, "Home Accounting Program," pg. 26-28. 

Part III reads in from a data file information concerning the 

proposed budget. 
Williams, Don, "Structured Assembler/Translate Sub- 
routines," pg. 36-38. 

Macros and subroutines based on the 6809 assembler. 

97. Dr. Dobb's Journal 7, Issue 9 (September, 1982) 

Domer, George C, "68XX Blurb," pg. 7. 
A users' group is forming for those interested in the 6809 
microprocessor, the OS-9 operating system, and UNIX-like 
systems on 68xx machines. 

98. PET Benelux Exchange 3, No. 2 (July, 1982) 

Anon., "SuperPET and 8096," pg. 3 (insert). 
Short note on the 6809-based SuperPET. 

99. BYTE 7, No. 9 (September, 1982) 

Stuart, John, "Three Dee Tee," pg. 34-50. 

A computer game for the 6809-based TRS-80 Color Computer 

based on Rubik's Cube and Tic Tac Toe. 
Staff, "Software Received," pg. 494-496. 

Reviews a couple of programs for the 6809-based systems. 

100. Compute! 4, No. 9 (September, 1982) 

Chastain, Linton S., "TRS-80 Color Computer Energy Monitor 
Graphics," pg. 130-131. 

A companion program for the 'Energy Monitor' program 

cited earlier. 

101. 80 Micro (October, 1982J 

Calle, Carlos, "Personal Finance, " pg. 38. 
A finance program for the Color Computer. 

Norman, Scott L., "Newtalk," pg. 38-39. 
A utility for those doing machine-language or assembly- 
language programming on a 6800 or 6809 system. 

Stone, Stephen G., HI, "Color Scripsit." 
Word processing for the TRS-80 Color Computer. 

Harden, William, Jr., "The Color Computer on Parade — Part 

I," pg. 82-87. 
All about graphics on the 6809-based Color Computer. 

Stark, Peter A., "Income Tax Estimator," pg. 168-182. 
Use your 6809-based Color Computer for the IRS. 

iiMCRO 



No. 56 -January 1983 



MICRO - The 6502/6809 Journal 



107 



In The Beginning 
Was The 
Word. . . 



\JS^ 






^UtOC 



.vKN 



^^^ 



G*' 



Itt^ 



f\i^' 



.OC^'^ 



.t\o^ 



MICROCOCCUS'MICROLITER 



micrococcus, mi kro kok' us, n. a microscopic organism 
of a round fprm. 

Microcomputing, mi' kro kom put ing, n. (Gr. mikros, 
small, and L. compute, to calculate.) The multi-system 
monthly journal for computer enthusiasts, containing 
all the information needed to turn your microcomputer 
into a powerful machine. Includes dozens of new pro- 
grams, articles on innovative computer applications, 
buyer's guides, new programming techniques, accurate 
reviews of hardware and software, complete coverage of 
new products, tips on your system's hidden capabilities, 
hardware modifications, tutorials, utilities, book 
reviews, industry news. Plus features on computers in 
business, science, education and games. Written in 
understandable language by experts in the field of com- 
puting. Special emphasis is placed on the Apple", Atari, 
Commodore, Heath and IBM systems, but not to the ex- 
clusion of other systems. 

(Ed. note — A one year subscription to MICROCOM- 
PUTING is only $24.97. Call 

1-800-258-5473 

Or send in the coupon below.) 

microcopy, mi' kro kop i, n. A photographic copy of 

printed material or photographs . . . 

MICROCOMPUTING^ 

The First Word in Computer Publishing. 

'Apple® is a registered trademark of Apple Computer, Inc. 



YESl I want to get the First Word in Computer Publishing. Send me 12 issues of MICROCOMPUTING for only 
$24.97. D Check enclosed D MC D VISA D AE D BiU me 

731 RMC 
Cardjf Exp. Date 

Interbankjf 

Name 



Address . 
City 



_State_ 



JZip_ 



L 



MICROCOMPUTING' 



Box 997 
Farmingdale, NY 11737 



Canada & Mexico $27.97, 1 Year Only, U.S. Funds 

Foreign Surface M4.97, 1 Year Only, U.S. Funds Drawn on U.S. Bank 

Allow 6-8 weeks for delivery. 
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ilMCRO"' Data Sheet #12 



NATIONAL 

ADVERTISING 

REPRESENTATIVES 



WEST COAST 

The R.W. Walker Co., Inc. 
Gordon Carnie 

2716 Ocean Park Boulevard 

Suite 1010 

Santa Monica, California 90405 

(213)450-9001 

serving: Washington, Oregon, Idaho, Montana, Wyom- 
ing, Colorado, New Mexico, Arizona, Utah, Nevada, 
California, Alaska, and Hawaii (also British Columbia 
and Alberta, Canada). 

MID-WEST TERRITORY 

Thomas Knorr & Associates 
Thomas H. Knorr, Jr. 

333 N. Michigan Avenue 
Suite 707 

Chicago, Illinois 60601 
(312) 726-2633 

serving: Ohio, Oklahoma, Arkansas, Texas, North 
Dakota, South Dakota, Nebraska, Kansas, Missouri, 
Indiana, Illinois, Iowa, Michigan, Wisconsin, and 
Minnesota. 

MIDDLE ATLANTIC AND 
SOUTHEASTERN STATES 



Advertiser's Index 



Dick Busch Inc. 
Richard V. Busch 

6 Douglass Dr., R.D. #4 
Princeton, NJ 08540 
(201) 329-2424 



Dick Busch, Inc. 
Eleanor M. Angone 

74 Brookline 

E.Atlantic Beach, NY 11561 

(516) 432-1955 



serving: New York, Pennsylvania, New Jersey, Dela- 
ware, Maryland, West Virginia, Virginia, D.C., North 
Carolina, South Carolina, Louisianna, Tennessee, Mis- 
sissippi, Alabama, Georgia, and Florida. 

NEW ENGLAND 

Kevin B. Rushaiko 

Peterboro, New Hampshire 03458 
(603) 547-2970 

serving: Maine, New Hampshire, Vermont, Massachu- 
setts, Rhode Island, Connecticut, and Kentucky. 

ADVERTISING MANAGER 

Cathi Bland 

address materials directly to: 
MICRO INK, Advertising 
34 Chelmsford Street 
Chelmsford, Massachusetts 01824 
(617)256-5515 



Aardvark Technical Services, Ltd 68 

ABC Data Products 79 

Anthro-Digital Software 24 

Apex Co 62 

Appletree Electronics 17 

Ark Computing 20 

Artsci, Inc IPC 

CGRS Microtech 54 

Chameleon Computing 18 

Commander Micro Systems Specialties 53 

Compu Sense 10 

CompuTech 74 

Computer Mail Order 56-57 

Computer Science Engineering 90 

Datamost, Inc 34, 91 

Digicom Engineering, Inc 53 

Digital Acoustics 14 

D&N Micro Products, Inc 88 

Eastern House Software 12 

Elcomp 98 

Excert, Inc 44 

Execom Corp 70 

Gimix, Inc 1 

Gooth Software 29 

Hudson Digital Electronics Inc 75 

Human Systems Dynamics 29 

Interesting Software 16 

John Bell Engineering 4 

Leading Edge BC 

Logical Devices 62 

Lyco Computing .27 

MICRObits (Classifieds) .77 

MICRO DSfK 8, 18, 93, IBC 

Microcomputing 108 

Micro Signal 13 

Micro-Ware Distributing Inc 42 

Modular Mining Systems 9 

Modular Systems 79 

Nibble 55 

Orion Software 106 

Perry Peripherals 61 

Power Processing 63 

Privac, Inc 33 

Pterodactyl Software 37 

Skyles Electric Works 2 

Softronics 6 

Softside Publications 58, 103 

Software Options 80 

Spectrum Systems 80 

Star Micronics 30 

Universal Data Research 70 

XPS, Inc 67 

MICRO INK is not responsible for claims made by its 
advertisers. Any complaint should be submitted directly 
to the advertiser. Please also send written notification to 
MICRO. 
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Next Month in MICRO 



February: Language Feature 

• APPLE Pascal Hi-Res Screen Dump — Use this 
high-resolution graphics dump to send APPLE 
Pascal Turtlegraphics to an Epson printer with 
Graftrax. 

• APL on the SuperPET— APL offers powerful 
features, high execution speeds, and a cryptic 
character set. This article discusses APL's history 
and advantages, with specific reference to the 
Waterloo version on the SuperPET. 

• Parameter Passing in Assembly Language — 

The author describes various methods for passing 
parameters to and from assembly-language 
programs. The Motorola 6502, 6809, 68000, and 
National Semiconductor 16032 are emphasized. 

• EDIT: A FORTH Screen-Oriented Editor — EDIT 
uses the Atari 800 display as a text window into a 
FORTH disl< screen and allows full use of the Atari 
special function keys to prepare FORTH 
applications. 



Plus... 

FORTH for the 6809 

LISP for the APPLE 

OSI PROM BASIC 

IEEE Control with Logical Files on the PET 

OSI Renumber BASIC 

Applesoft BASIC Routine for CAI 



Columns 

APPLE Slices 
PET Vet 

From Here to ATARI 
CoCo Bits 

Departments 

Reviews in Brief 

Software and Hardware Catalogs 

New Publications 

FORTH Data Sheet 



20% OFF 

Your money goes farther when you sub- 
scribe. During the course of a year, when you 
subscribe, you save 20% (in the U.S.). 

Pay only $24.00 ($2.00 a copy) for 12 monthly 
issues of MICRO sent directly to your home or 
office in the U.S. 



MICRO 

34 Chelmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 

Please send me MICRO for 1 year 2 years 

NOTE: Airmail subscriptions accepted for 1 year only. 



More MICRO for Less Money 
When You Subscribe 

But on the newsstand — if you can locate the 
issue you want — you pay $30.00 a year ($2.50 
a copy). 

Special Offer — Subscribe for 2 years ($42.00) 
and get 30% off the single issue price. 

Subscribe to MICRO today. 



Subscription Rates Effective January 1, 1982 



Country 



Rate 



Check enclosed $_ 
Charge my 

No. 



VISA account 
Mastercard account 



United States 

Foreign surface mail 

Europe (air) 

Mexico, Central America, Mid East, 

N. &C. Africa 
South Am., S. Afr., Far East, 

Australasia, New Zealand 



$24.00 1 yr. 
42.00 2 yr. 
27.00 
42.00 

48.00 

72.00 



Expiration date . 
Name 



* Airmail subscriptions accepted for only 1 year. 
For U.S. and Canadian 2-year rates, multiply by 2. 



Address 



City/State. 



Job Title: 



-Zip 



Type of Business/Industry: . 
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Advancing Computer Knowledge 




Subscribe TodavJ 
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Revolution in Computer Knowledge 




Complete Postage-Paid Card 
and Mail Today 



THE PROWRITER COMETH. 




(And It Cometh On Like GangbustersJ 

Evolution. 

It's inevitable. An eternal 
verity. 

Just when you think you've 
got it knocked, and you're 
resting on your laurels, some- 
body comes along and makes 
a dinosaur out of you. 

Witness what happened to 
the Centronics printer when 
the Epson MX-80 came along 
in 1981. 

And now, witness what's 
happening to the MX-80 as 
the ProWriter cometh to be 
the foremost printer of the 
decade. 
SPEED 

MX-80: 80 cps, for 46 full lines 
per minute throughput. 
PROWRITER: 120 cps, for 
63 full lines per minute 
throughput. 
GRAPHICS 

MX-80: Block graphics standard, 
fine for things like bar graphs. 
PROWRITER: High-resolu- 
tion graphics features, fine 
for bar graphs, smooth curves, 
thin lines, intricate details, etc. 
PRINTING 

MX-80: Dot matrix business 
quality. 

PROWRITER: Dot matrix 
correspondence quality, with 
incremental printing capability 
standard. 
FEED 

MX-80: Tractor feed standard; 
optional friction-feed kit for 
about $75 extra. 
PROWRITER: Both tractor 
and friction feed standard. 
INTERFACE 
MX-80: Parallel interface 
standard; optional serial 
interface for about $75 extra. 
PROWRITER: Available stan- 
dard-either parallel interface 
or parallel/serial interface. 
WARRANTY 

MX-80: 90 days, from Epson. 
PROWRITER: One full year, 
from Leading Edge. 
PRICE 
Heh, heh. 

Marketed Exclusively by Leading 
Edge Products, Inc., 225 Turnpike 
Street, Canton, Massachusetts 
02021. Call: toll-free 1-800-343-6833: 
or in Massachusetts call collect 
16171828-8150 Telex 951-624. 



LEADIKG 

edge: 

For a free poster of "Ace " 
tProwriter's pilot I doing his thing, 
please write us. 



SIMULATIONS/APPLICATIONS 



Model Rocket Simulation 

in BASIC 



by David Eagle 



This article describes a program 
to determine thie aititude 
performance of singie-stage 
model rockets, including 
burnout conditions, flighit time, 
and maximum altitude of a 
model rocket. 

R0CKET1 

requires: 

BASIC 

ROCKETl solves the problem of ver- 
tical model rocket motion by using 
several assumptions that allow the 
equation of motion to be solved exactly 
or analytically. These assumptions in- 
volve the boost phase of flight where an 
average thrust and average model rocket 
mass are assumed. The atmospheric 
density and drag coefficient are also 
assumed to be constant during the en- 
tire model rocket flight. ROCKETl also 
compensates for non-standard launch 
sites that are not at sea level and launch- 
ings on hot or cold days. 

Usei Inputs and Selections 

ROCKETl will prompt the user for 
the necessary inputs. A description of 
these requests and a discussion of how 
the user should respond follows. Infor- 
mation that pertains to the model 
rocket engine characteristics is 
available from manufacturers' catalogs. 

LAUNCH SITE ALTITUDE (METERS)? 
The user responds with the altitude 
of the launch site relative to sea level. 
This altitude is input in meters and is 
positive for sites above sea level and 
negative for sites below sea level. 

LAUNCH SITE TEMPERATURE 
[DEGF)? 

The user responds with the temper- 
ature at the launch site in decimal 
degrees Fahrenheit. 



THRUST DURATION (SECONDS)? 

The user inputs the total thrust 
duration of the model rocket engine in 
seconds. 

TOTAL IMPULSE 
(NEWTON-SECONDS) ? 

The user responds with the total 
impulse of the model rocket engine in 
the units of newton-seconds. 

INITL^L MASS (GRAMS)? 

The user inputs the lift-off or gross 
mass of the entire model rocket in grams. 

PROPELLANT MASS (GRAMS)? 

The user responds with the pro- 
pellant mass of the model rocket 
engine in grams. 

FRONTAL DIAMETER (MM)? 

The user inputs the maximum body 
tube diameter of the model rocket in 
millimeters. 

DRAG COEFFICIENT? 

The user responds with the drag co- 



efficient of the complete model rocket. 
This number is non-dimensional. 

After the program has run it will- 
prompt the user for another selection. 
A description of each prompt follows. 
The user responds with "Y" if he/she 
desires the particular selection, or "N" 
if not. 

ANOTHER SELECTION 
(Y = YES, N = NO)? 

The user responds with "N" to exit 
the program. 

ANOTHER LAUNCH SITE 
(Y = YES, N = NO)? 

The user responds with "Y" to 
compute the model rocket flight perfor- 
mance at another launch site. 

ANOTHER ROCKET ENGINE 
(Y = YES, N = NO)? 

The user responds with "Y" to 
compute a model rocket's flight perfor- 
mance with a different model rocket 
engine. 

DIFFERENT MASS OR DRAG 
(Y = YES, N = NO)? 



Sample Run 



PROGRAM ROCKETl 



LAUNCH SITE ALTITUDE (METERS)? 
LAUNCH SITE TEMFERATURE (DEC F)? 59 
THRUST DURATION (SECONDS)? 1.2 
TOTAL IMPULSE (NEWTON-SECONDS)? 5 
INITIAL MASS (CRAMS)? tO 
PROPELLANT MASS (CRAMS)? 8.33 
FRONTAL DIAMETER (MM)? 18 
DRAG COEFFICIENT? .321 

BURNOUT ALTITUDE (METERS) 
BURNOUT UELOCITY (METERS/SECOND) 
COAST TIME (SECONDS) 
TOTAL FLIGHT TIME (SECONDS) 

MAXIMUM ALTITUDE (METERS) 

ANOTHER SELZCTIOK (Y=rES, K=KO)? 



7t. 0471213 

119.35939 

7.93142t4e 

9.13142^48 

•151.393595 
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